home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-Sensation: Golden Games / Amiga CD-Sensation - Ausgabe 2 - Golden Games (1996)(GTI - Schatztruhe)(DE)[!].iso / Adventurer's / DSA Kräutersuche / BangerDSA-KS.Asm < prev    next >
Assembly Source File  |  1995-12-24  |  112KB  |  3,776 lines
  1. ;Programm: BangerDSA-KS Suche würfelt für den Meister aus welche Kräuter der
  2. ;          Held gefunden hat in n Stunden.
  3. ;Autor   : Andre´ Trettin
  4. ;Codename: Banger
  5. ;Begin   : 18-Apr-95 18:54:06
  6. ;$VER    : BangerDSA-KS.Asm 1.32 (24-Dez-1995)
  7.  
  8. ** INCLUDE Struktur Variablen
  9. *   21=kein Speicher
  10. *   22=konnte Libs nicht öffnen
  11. *   23=kein VisualInfo Pointer
  12. *   24=init Gadgedts error
  13. *   25=Menu error
  14. *   26=konnte Fenster nicht öffnen
  15. *   27=Menu Layouten error
  16. *   28=falsche Parameter angabe
  17. ** incload equ ks-struct
  18.     incdir  INCLUDE:
  19.     include exec/exec.i
  20.     include dos/dos.i
  21.     include dos/dosextens.i
  22.     include intuition/intuition.i
  23.     include intuition/classes.i
  24.     include intuition/classusr.i
  25.     include intuition/imageclass.i
  26.     include intuition/gadgetclass.i
  27.     include graphics/displayinfo.i
  28.     include graphics/gfxbase.i
  29.     include hardware/register.i
  30.     include libraries/gadtools.i
  31.     include lvo/exec_lib.i
  32.     include lvo/dos_lib.i
  33.     include lvo/intuition_lib.i
  34.     include lvo/graphics_lib.i
  35.     include lvo/gadtools_lib.i
  36.  
  37. * Gebiet Nummer für ks_Gebiet
  38. GE equ    $1
  39. MA equ    $2
  40. MO equ    $4
  41. MS equ    $8
  42. MW equ   $10
  43. NH equ   $20
  44. NS equ   $40
  45. NU equ   $80
  46. NW equ  $100
  47. SW equ  $200
  48. SF equ  $400
  49. TE equ  $800
  50. WU equ $1000
  51. WR equ $2000
  52.  
  53. * Flora Nummer für ks_Flora
  54. BR equ        $1
  55. EI equ        $2
  56. FA equ        $4
  57. FU equ        $8
  58. GR equ       $10
  59. GF equ       $20
  60. GB equ       $40
  61. GH equ       $80
  62. GO equ      $100
  63. HO equ      $200
  64. HS equ      $400
  65. HM equ      $800
  66. HF equ     $1000
  67. HT equ     $2000
  68. KU equ     $4000
  69. KS equ     $8000
  70. OM equ    $10000
  71. RW equ    $20000
  72. SE equ    $40000
  73. SU equ    $80000
  74. ST equ   $100000
  75. TI equ   $200000
  76. WA equ   $400000
  77. WG equ   $800000
  78. WF equ  $1000000
  79. WL equ  $2000000
  80. WD equ  $4000000
  81. WI equ  $8000000
  82. WS equ $10000000
  83. WT equ $20000000
  84.  
  85. * Kräuter Suche Structur
  86.     STRUCTURE KraeuterSuche,0
  87.     WORD    ks_Gebiet
  88.     LONG    ks_Flora
  89.     BYTE    ks_ProbePlus
  90.     STRUCT  ks_Vorhanden,30
  91.     BYTE    ks_FillByte
  92.     WORD    ks_Gefunden
  93.     APTR    ks_Name
  94.     APTR    ks_InfoTxt
  95.     LABEL   ks_SIZEOF
  96.  
  97. KraeuterAnzahl  = 64
  98. ;;
  99.     STRUCTURE Internal,0
  100.     APTR    INTUIBase
  101.     APTR    DOSBase
  102.     APTR    GFXBase
  103.     APTR    GADBase
  104.     APTR    WindowHandle
  105.     APTR    WBenchMsg
  106.     APTR    KrautWinHandle
  107.     APTR    SpezialWinHandle
  108.     APTR    ScreenHandle
  109.     APTR    VisualInfo
  110.     APTR    FontAddr
  111.     APTR    GadgetListe
  112.     APTR    SpeGadgetListe
  113.     APTR    KrautGadListe
  114.     APTR    GKL
  115.     APTR    GIN
  116.     APTR    GFF
  117.     APTR    GTAW
  118.     APTR    GStunden
  119.     APTR    GSpeSuc
  120.     APTR    GSuchen
  121.     APTR    GGebiet
  122.     APTR    GFlora
  123.     APTR    GKraSpe
  124.     APTR    GOK
  125.     APTR    GVerwerfen
  126.     APTR    GLoes
  127.     APTR    ListHandle
  128.     APTR    AnGKraut
  129.     APTR    MenuPtr
  130.     APTR    WinRPort
  131.     APTR    meinTask
  132.     APTR    alterTask
  133.     APTR    RDArgs
  134.     APTR    KLArray
  135.     APTR    INArray
  136.     APTR    FFArray
  137.     APTR    TAWArray
  138.     APTR    ZEITArray
  139.     STRUCT  GKraut,[KraeuterAnzahl*4]
  140.     STRUCT  AusgabeK,[KraeuterAnzahl*60]
  141.     STRUCT  geKrautTxt,[KraeuterAnzahl*it_SIZEOF]
  142.     STRUCT  GGebietList,[MLH_SIZE+(LN_SIZE*15)]
  143.     STRUCT  GFloraList,[MLH_SIZE+(LN_SIZE*31)]
  144.     STRUCT  GSpeSucList,[MLH_SIZE+(LN_SIZE*(KraeuterAnzahl+1))]
  145.     STRUCT  RawErkennung,[ie_SIZEOF]
  146.     LONG    AltZufall
  147.     LONG    KLWert
  148.     LONG    INWert
  149.     LONG    FFWert
  150.     LONG    TAWWert
  151.     LONG    StundenWert
  152.     LONG    FloraBitSelect
  153.     LONG    SpeKraeuter0
  154.     LONG    SpeKraeuter1
  155.     WORD    GebietBitWert
  156.     WORD    WinBorderLeft
  157.     WORD    WinBorderTop
  158.     WORD    SpeSuchVer
  159.     BYTE    RelativeTopC
  160.     BYTE    RelativeLeftC
  161.     BYTE    GListWahlStatus
  162.     BYTE    MaxListeAnz
  163.     BYTE    AktivListeEn
  164.     BYTE    FloraAktiv
  165.     BYTE    GebietAktiv
  166.     BYTE    ProbePlus
  167.     BYTE    StatusSpe
  168.     BYTE    SpeKraNummer
  169.     BYTE    StundenPZ
  170.     BYTE    SpeBonus
  171.     LABEL   Int_SIZEOF
  172. ;;
  173. ** Hauptprog
  174.     moveq   #0,d7
  175.     move.l  4.w,a6
  176.     move.l  #Int_SIZEOF,d0
  177.     move.l  #MEMF_PUBLIC!MEMF_CLEAR,d1
  178.     jsr     _LVOAllocMem(a6)
  179.     move.l  d0,a5
  180.     bne.s   WorkBench
  181.     moveq   #21,d7
  182.     bra.w   Ende
  183. WorkBench
  184.     suba.l  a1,a1
  185.     jsr     _LVOFindTask(a6)
  186.     move.l  d0,a4
  187.     tst.l   pr_CLI(a4)
  188.     bne.s   fromCLI
  189.     lea     pr_MsgPort(a4),a0
  190.     jsr     _LVOWaitPort(a6)
  191.     lea     pr_MsgPort(a4),a0
  192.     jsr     _LVOGetMsg(a6)
  193.     move.l  d0,WBenchMsg(a5)
  194. fromCLI
  195.     bsr.w   LibOeffne
  196.     tst.b   d7
  197.     bne.s   SchliesseLibrary
  198.     bsr.w   Parameter
  199.     tst.b   d7
  200.     bne.s   SchliesseLibrary
  201.     bsr.w   PubScreenOeffne
  202.     tst.b   d7
  203.     bne.s   SchliesseScreen
  204.     bsr.w   InitList
  205.     bsr.w   InitGadget
  206.     tst.b   d7
  207.     bne.s   GadgetRemove
  208.     bsr.w   InitMenu
  209.     tst.b   d7
  210.     bne.s   MenuRemove
  211.     bsr.w   FensterOeffne
  212.     tst.b   d7
  213.     bne.s   MenuRemove
  214.     moveq   #2,d6
  215.     bsr.w   DSARender
  216.     move.l  WindowHandle(a5),a4
  217.     bsr.w   RefreshWin
  218.     bsr.w   SetAndLayout
  219.     tst.b   d7
  220.     bne.s   SchliesseFenster
  221.     move.l  GGebiet(a5),ListHandle(a5)
  222.     move.b  #14-1,MaxListeAnz(a5)
  223. ;    bsr.s   MausZeiger
  224.     bsr.w   MessageAbFragen
  225. ;    bsr.s   LoesMausZeiger
  226.     bsr.w   ClearMenu
  227. SchliesseFenster
  228.     bsr.w   FensterSchliesse
  229. MenuRemove
  230.     bsr.w   RemoveMenu
  231. GadgetRemove
  232.     bsr.w   RemoveGadget
  233. SchliesseScreen
  234.     bsr.w   FreePara
  235.     bsr.w   ScreenSchliesse
  236. SchliesseLibrary
  237.     bsr.w   LibSchliesse
  238.     tst.l   WBenchMsg(a5)
  239.     beq.s   NOWBench
  240.     move.l  4.w,a6
  241.     jsr     _LVOForbid(a6)
  242.     move.l  WBenchMsg(a5),a1
  243.     jsr     _LVOReplyMsg(a6)
  244.     jsr     _LVOPermit(a6)
  245. NOWBench
  246.     move.l  a5,a1
  247.     move.l  #Int_SIZEOF,d0
  248.     jsr     _LVOFreeMem(a6)
  249. Ende
  250.     move.l  d7,d0
  251.     rts
  252. ;;
  253. ** InitList
  254. InitList
  255.     move.w  $dff006,d0       ;ZufallInitRuntine
  256.     mulu    $dff014,d0       ;Mit besten
  257.     add.w   $dff006,d0       ;Dank an
  258.     swap    d0               ;Stevie v. Zweidorff
  259.     move.w  $dff006,d0       ;für die Benutzung
  260.     mulu    $dff014,d0       ;dieser Zufalls
  261.     add.w   $dff006,d0       ;Runtine
  262.     move.l  d0,AltZufall(a5)
  263.     lea     topaz8(pc),a2
  264.     lea     topazFName8(pc),a1
  265.     move.l  a1,(a2)
  266.     lea     DSANewMenu0(pc),a0
  267.     lea     DSAMName0(pc),a1
  268.     move.l  a1,2(a0)
  269.     lea     DSAMName1(pc),a1
  270.     move.l  a1,22(a0)
  271.     lea     DSAMComm1(pc),a1
  272.     move.l  a1,26(a0)
  273.     lea     DSAMName2(pc),a1
  274.     move.l  a1,42(a0)
  275.     lea     DSAMComm2(pc),a1
  276.     move.l  a1,46(a0)
  277.     lea     DSAMComm1(pc),a1
  278.     move.l  a1,26(a0)
  279.     lea     DSATitleText(pc),a0
  280.     move.l  a2,it_ITextFont(a0)
  281.     lea     DSAIText0(pc),a1
  282.     move.l  a1,it_IText(a0)
  283.     lea     DSATitleText1(pc),a1
  284.     move.l  a1,it_NextText(a0)
  285.     move.l  a2,it_ITextFont(a1)
  286.     lea     DSAIText1(pc),a0
  287.     move.l  a0,it_IText(a1)
  288.     lea     DSATitleText2(pc),a0
  289.     move.l  a0,it_NextText(a1)
  290.     move.l  a2,it_ITextFont(a0)
  291.     lea     DSAIText2(pc),a1
  292.     move.l  a1,it_IText(a0)
  293.     lea     DSATitleText3(pc),a1
  294.     move.l  a1,it_NextText(a0)
  295.     move.l  a2,it_ITextFont(a1)
  296.     lea     DSAIText3(pc),a0
  297.     move.l  a0,it_IText(a1)
  298.     lea     Alraune(pc),a0
  299.     lea     NAlraune(pc),a1
  300.     lea     TAlraune(pc),a2
  301.     moveq   #KraeuterAnzahl-1,d0
  302. KSInitloop
  303.     lea     2(a1),a1
  304.     move.l  a1,ks_Name(a0)
  305.     move.l  a2,ks_InfoTxt(a0)
  306. NullNameloop
  307.     move.b  (a1)+,d1
  308.     tst.b   d1
  309.     bne.s   NullNameloop
  310. NullTextloop
  311.     move.b  (a2)+,d1
  312.     tst.b   d1
  313.     bne.s   NullTextloop
  314.     lea     ks_SIZEOF(a0),a0
  315.     dbra    d0,KSInitloop
  316.     lea     GGebietList(a5),a0
  317.     move.l  a0,a4
  318.     move.w  #14*LH_SIZE+4,d5
  319.     move.w  #13-1,d6
  320.     lea     GGebietNamen(pc),a3
  321.     bsr.s   InitHead
  322.     lea     GFloraList(a5),a0
  323.     move.l  a0,a4
  324.     move.w  #30*LH_SIZE+4,d5
  325.     move.w  #29-1,d6
  326.     lea     GFloraNamen(pc),a3
  327.     bsr.s   InitHead
  328.     lea     GSpeSucList(a5),a0
  329.     move.l  a0,a4
  330.     move.w  #KraeuterAnzahl*LH_SIZE+4,d5
  331.     move.w  #KraeuterAnzahl-2,d6
  332.     lea     NAlraune(pc),a3
  333.     bsr.s   InitHead
  334.     rts
  335. InitHead
  336.     lea     MLH_SIZE(a0),a1
  337.     move.l  a1,(a0)+
  338.     clr.l   (a0)+
  339.     lea     (a0,d5.w),a1
  340.     move.l  a1,(a0)+
  341.     lea     LN_SIZE(a0),a1
  342.     move.l  a1,(a0)+
  343.     move.l  a4,(a0)+
  344.     clr.w   (a0)+
  345.     move.l  a3,(a0)+
  346. InitNodes
  347.     bsr.s   FindeNull
  348.     lea     LN_SIZE(a0),a1
  349.     lea     -LN_SIZE(a0),a2
  350.     move.l  a1,(a0)+
  351.     move.l  a2,(a0)+
  352.     clr.w   (a0)+
  353.     move.l  a3,(a0)+
  354.     dbra    d6,InitNodes
  355.     bsr.s   FindeNull
  356.     lea     -LN_SIZE(a0),a2
  357.     clr.l   (a0)+
  358.     move.l  a2,(a0)+
  359.     clr.w   (a0)+
  360.     move.l  a3,(a0)+
  361.     rts
  362. FindeNull
  363.     move.b  (a3)+,d0
  364.     cmp.b   #0,d0
  365.     bne.s   FindeNull
  366.     rts
  367. ;;
  368. ** Parameter
  369. Parameter
  370.     move.l  DOSBase(a5),a6
  371.     lea     ParaTemplate(pc),a1
  372.     move.l  a1,d1
  373.     lea     KLArray(a5),a1
  374.     move.l  a1,d2
  375.     moveq   #0,d3
  376.     jsr     _LVOReadArgs(a6)
  377.     move.l  d0,RDArgs(a5)
  378.     bne.s   ParaOK
  379.     jsr     _LVOIoErr(a6)
  380.     move.l  d0,d1
  381.     moveq   #0,d2
  382.     jsr     _LVOPrintFault(a6)
  383.     moveq   #28,d7
  384. ParaOK
  385.     tst.l   KLArray(a5)
  386.     beq.s   NoWert1
  387.     move.l  KLArray(a5),a1
  388.     move.l  (a1),KLArray(a5)
  389. NoWert1
  390.     tst.l   INArray(a5)
  391.     beq.s   NoWert2
  392.     move.l  INArray(a5),a1
  393.     move.l  (a1),INArray(a5)
  394. NoWert2
  395.     tst.l   FFArray(a5)
  396.     beq.s   NoWert3
  397.     move.l  FFArray(a5),a1
  398.     move.l  (a1),FFArray(a5)
  399. NoWert3
  400.     tst.l   TAWArray(a5)
  401.     beq.s   NoWert4
  402.     move.l  TAWArray(a5),a1
  403.     move.l  (a1),TAWArray(a5)
  404. NoWert4
  405.     tst.l   ZEITArray(a5)
  406.     beq.s   NoWert5
  407.     move.l  ZEITArray(a5),a1
  408.     move.l  (a1),ZEITArray(a5)
  409. NoWert5
  410.     rts
  411. FreePara
  412.     move.l  RDArgs(a5),d1
  413.     move.l  DOSBase(a5),a6
  414.     jsr     _LVOFreeArgs(a6)
  415.     rts
  416. ;;
  417. ** KräuterSuche
  418. ** SuchenStart
  419. SuchenStart
  420.     lea     GFloraList(a5),a4
  421.     moveq   #30-1,d0
  422.     moveq   #0,d1
  423. FloraAusLoop
  424.     move.w  d0,d5
  425.     bsr.w   ListeNamen
  426.     cmp.b   #'+',(a0)
  427.     bne.s   keinSternSet
  428.     bset    d0,d1
  429. keinSternSet
  430.     dbra    d0,FloraAusLoop
  431.     move.l  d1,FloraBitSelect(a5)
  432.     beq.w   ReqFlora
  433.     move.l  GKL(a5),a0
  434.     move.l  gg_SpecialInfo(a0),a0
  435.     move.l  si_LongInt(a0),KLWert(a5)
  436.     move.l  GIN(a5),a0
  437.     move.l  gg_SpecialInfo(a0),a0
  438.     move.l  si_LongInt(a0),INWert(a5)
  439.     move.l  GFF(a5),a0
  440.     move.l  gg_SpecialInfo(a0),a0
  441.     move.l  si_LongInt(a0),FFWert(a5)
  442.     move.l  GTAW(a5),a0
  443.     move.l  gg_SpecialInfo(a0),a0
  444.     move.l  si_LongInt(a0),TAWWert(a5)
  445.     move.l  GStunden(a5),a0
  446.     move.l  gg_SpecialInfo(a0),a0
  447.     move.l  si_LongInt(a0),d3
  448.     move.l  KLWert(a5),d7
  449.     move.l  INWert(a5),d6
  450.     move.l  FFWert(a5),d5
  451.     move.l  TAWWert(a5),d4
  452.     cmp.b   #8,d7
  453.     bmi.w   FalscherWert1
  454.     cmp.b   #8,d6
  455.     bmi.w   FalscherWert2
  456.     cmp.b   #8,d5
  457.     bmi.w   FalscherWert5
  458.     cmp.b   #22,d7
  459.     bpl.w   FalscherWert1
  460.     cmp.b   #22,d6
  461.     bpl.w   FalscherWert2
  462.     cmp.b   #22,d5
  463.     bpl.w   FalscherWert5
  464.     cmp.b   #19,d4
  465.     bpl.w   FalscherWert3
  466.     cmp.b   #1,d3
  467.     bmi.w   FalscherWert4
  468.     addq    #3,TAWWert(a5)
  469.     subq    #1,d3
  470.     move.b  d3,StundenPZ(a5)
  471.     lea     Alraune(pc),a4
  472.     moveq   #KraeuterAnzahl-1,d0
  473. GefundenLoeschen
  474.     clr.w   ks_Gefunden(a4)
  475.     lea     ks_SIZEOF(a4),a4
  476.     dbra    d0,GefundenLoeschen
  477.     move.l  #$ffffffff,SpeKraeuter0(a5)
  478.     move.l  #$ffffffff,SpeKraeuter1(a5)
  479.     clr.b   StatusSpe(a5)
  480.     clr.b   SpeKraNummer(a5)
  481.     clr.b   SpeBonus(a5)
  482.     lea     SpeSucGTag(pc),a3
  483.     move.w  6(a3),SpeSuchVer(a5)
  484.     tst.w   SpeSuchVer(a5)
  485.     beq.w   Suchefortf
  486.     bsr.s   SpezialSS
  487. ;;
  488. ** Kräuter suche
  489. Suchefortf
  490.     moveq   #0,d3
  491.     move.b  StundenPZ(a5),d3
  492. SuchenDauerLoop
  493.     subq    #3,TAWWert(a5)
  494.     move.l  KLWert(a5),d7
  495.     move.l  INWert(a5),d6
  496.     move.l  FFWert(a5),d5
  497.     move.l  TAWWert(a5),d4
  498.     moveq   #20,d0
  499.     bsr.w   Wuerfel
  500.     sub.b   d7,d1
  501.     bhi.s   daneben
  502.     neg.b   d1
  503.     move.b  d1,d2
  504. INProbe
  505.     bsr.w   Wuerfel
  506.     sub.b   d6,d1
  507.     bhi.s   daneben1
  508.     cmp.b   #-1,d2
  509.     beq.s   FFProbe
  510.     neg.b   d1
  511.     add.b   d1,d2
  512. FFProbe
  513.     bsr.w   Wuerfel
  514.     sub.b   d5,d1
  515.     bhi.s   daneben2
  516.     cmp.b   #-1,d2
  517.     beq.s   FertigProbe
  518.     neg.b   d1
  519.     add.b   d1,d2
  520.     add.b   d2,d4
  521. FertigProbe
  522.     cmp.b   #0,d4
  523.     bmi.w   missSuche
  524.     move.b  d4,ProbePlus(a5)
  525.     bra.b   normalSuche
  526. daneben
  527.     moveq   #-1,d2
  528.     sub.b   d1,d4
  529.     bmi.w   missSuche
  530.     bra.s   INProbe
  531. daneben1
  532.     moveq   #-1,d2
  533.     sub.b   d1,d4
  534.     bmi.w   missSuche
  535.     bra.s   FFProbe
  536. daneben2
  537.     moveq   #-1,d2
  538.     sub.b   d1,d4
  539.     bmi.b   missSuche
  540.     bra.s   FertigProbe
  541. ReqFlora
  542.     move.l  WindowHandle(a5),a0
  543.     lea     ErrReqTit(pc),a2
  544.     lea     FloReqTxt(pc),a3
  545.     lea     FeGadTxt(pc),a4
  546.     bsr.w   AllRequester
  547.     bra.w   nocheine
  548. misslungen
  549.     move.l  WindowHandle(a5),a0
  550.     lea     SchReqTit(pc),a2
  551.     lea     MisReqTxt(pc),a3
  552.     lea     FeGadTxt(pc),a4
  553.     bsr.w   AllRequester
  554.     bra.w   nocheine
  555. KrautAuswuerfeln
  556.     move.b  ks_Vorhanden(a4,d6.w),d2 ;Flora Wahrscheinlichkeit in d2
  557.     moveq   #20,d0                   ;W20
  558.     bsr.s   Wuerfel
  559.     cmp.b   d2,d1                    ;d1<=d2 dann Pflanze gefunden
  560.     bhi.s   nixgefunden
  561.     bsr.s   Wuerfel
  562.     cmp.b   d2,d1                    ;d1<=d2 dann 1W6 Pflanzen gefunden
  563.     bhi.s   nureineKraut
  564.     moveq   #6,d0                    ;W6
  565.     bsr.s   Wuerfel
  566.     add.w   d1,ks_Gefunden(a4)       ;d1=1W6 Pflanzen
  567.     bra.s   nixgefunden
  568. nureineKraut
  569.     add.w   #1,ks_Gefunden(a4)
  570. nixgefunden
  571.     bra.w   naechteFlora
  572. normalSuche
  573.     moveq   #0,d0
  574.     move.b  GebietAktiv(a5),d0
  575.     moveq   #0,d1
  576.     bset    d0,d1
  577.     move.w  d1,GebietBitWert(a5)
  578.     lea     Alraune(pc),a4
  579.     moveq   #KraeuterAnzahl-1,d5    ;d5 Kräuter anzahl
  580. naechtesKraut
  581.     move.w  ks_Gebiet(a4),d0        ;Wo wäschst das Kraut
  582.     move.w  GebietBitWert(a5),d1    ;AuswahlGebiet
  583.     and.w   d0,d1                   ;Vergleiche
  584.     beq.s   InitKraut               ;Auch Unser Kraut ?
  585.     move.l  ks_Flora(a4),d0         ;In welcher Flora wächst das Kraut
  586.     move.l  FloraBitSelect(a5),d7   ;Angewählte Flora
  587.     and.l   d0,d7                   ;d7 in welchen Floras das Kraut ge-
  588.     beq.s   InitKraut               ;sucht werden kann
  589.     tst.w   SpeSuchVer(a5)
  590.     beq.s   normalProbeP
  591.     move.b  ks_ProbePlus(a4),d2
  592.     cmp.b   #31,d5
  593.     bls.s   SpeKrLower
  594.     move.l  SpeKraeuter1(a5),d1
  595.     bra.s   richtigSpeKr
  596. SpeKrLower
  597.     move.l  SpeKraeuter0(a5),d1
  598. richtigSpeKr
  599.     moveq   #0,d0
  600.     bset    d5,d0
  601.     and.l   d0,d1
  602.     beq.s   AddProbeP
  603.     sub.b   SpeBonus(a5),d2
  604.     bra.s   keinNorPP
  605. AddProbeP
  606.     add.b   SpeBonus(a5),d2
  607. normalProbeP
  608.     move.b  ks_ProbePlus(a4),d2     ;Probe Plus für das Kraut
  609. keinNorPP
  610.     move.b  ProbePlus(a5),d1        ;welche ist geschafft ?
  611.     cmp.b   d1,d2                   ;d2>=d1 dann Kraut gefunden u. Identi
  612.     bhi.s   InitKraut
  613.     moveq   #30-1,d6                ;d6 = 30 Floras
  614. KrautinFloraloop
  615.     btst    d6,d7                   ;testet welches Gebiet angewählt ist
  616.     bne.w   KrautAuswuerfeln
  617. naechteFlora
  618.     dbra    d6,KrautinFloraloop
  619. InitKraut
  620.     lea     ks_SIZEOF(a4),a4
  621.     dbra    d5,naechtesKraut
  622. missSuche
  623.     dbra    d3,SuchenDauerLoop
  624.     lea     KrautGadListe(a5),a0
  625.     move.l  GADBase(a5),a6
  626.     jsr     _LVOCreateContext(a6)
  627.     move.l  d0,d4
  628.     beq.w   KrautErrorGadget
  629.     lea     Kraut2Gad(pc),a1
  630.     lea     KrautGad(pc),a2
  631.     bsr.w   InitKGadget
  632.     lea     KrautGad(pc),a1
  633.     move.b  RelativeTopC(a5),d2
  634.     move.b  RelativeLeftC(a5),d3
  635.     add.b   d2,gng_TopEdge+1(a1)
  636.     add.b   d3,gng_LeftEdge+1(a1)
  637.     move.l  VisualInfo(a5),gng_VisualInfo(a1)
  638.     move.l  FontAddr(a5),gng_TextAttr(a1)
  639.     lea     GKraut(a5),a0
  640.     move.l  a0,d3
  641.     lea     Alraune(pc),a4
  642.     lea     AusgabeK(a5),a3
  643.     moveq   #KraeuterAnzahl-1,d5
  644.     moveq   #0,d7
  645. AusgabeInitloop
  646.     moveq   #0,d6
  647.     move.w  ks_Gefunden(a4),d6
  648.     beq.s   nichtgefunden
  649.     bsr.w   WordWandler
  650.     move.l  #$20782000,(a3)+
  651.     move.l  d4,a0
  652.     lea     KrautGad(pc),a1
  653.     move.l  ks_Name(a4),gng_GadgetText(a1)
  654.     add.w   #10,gng_TopEdge(a1)
  655.     move.w  d5,d0
  656.     sub.w   #KraeuterAnzahl-1,d0
  657.     neg.w   d0
  658.     move.w  d0,gng_GadgetID(a1)
  659.     moveq   #BUTTON_KIND,d0
  660.     suba.l  a2,a2
  661.     jsr     _LVOCreateGadgetA(a6)
  662.     move.l  d3,a1
  663.     move.l  d0,(a1)+
  664.     beq.w   KrautErrorGadget
  665.     move.l  d0,d4
  666.     move.l  a1,d3
  667.     addq    #1,d7
  668. nichtgefunden
  669.     lea     ks_SIZEOF(a4),a4
  670.     dbra    d5,AusgabeInitloop
  671.     tst.b   d7
  672.     beq.w   misslungen
  673.     move.l  INTUIBase(a5),a6
  674.     lea     Fenster_Tags(pc),a1
  675.     move.l  KrautGadListe(a5),12(a1)
  676.     lea     KrautWinTitle(pc),a0
  677.     move.l  a0,4(a1)
  678.     move.l  a0,20(a1)
  679.     move.l  #355,28(a1)
  680.     move.l  #130,52(a1)
  681.     move.w  d7,d6
  682.     move.w  d6,d5
  683.     add.w   d6,d5
  684.     asl.w   #3,d7
  685.     add.w   d5,d7
  686.     add.w   #36,d7
  687.     move.l  d7,36(a1)
  688.     move.l  #252,d0
  689.     sub.w   d7,d0
  690.     asr.w   #1,d0
  691.     move.l  d0,44(a1)
  692.     suba.l  a0,a0
  693.     jsr     _LVOOpenWindowTagList(a6)
  694.     move.l  d0,KrautWinHandle(a5)
  695.     beq.w   KrautWindowError
  696.     sub.b   #1,d6
  697.     move.w  #12,d5
  698.     lea     geKrautTxt(a5),a4
  699.     move.l  FontAddr(a5),a3
  700.     lea     AusgabeK(a5),a2
  701. TxtInitLoop
  702.     move.l  #$02000100,(a4)+
  703.     move.w  #15,(a4)+
  704.     move.w  d5,(a4)+
  705.     add.w   #10,d5
  706.     move.l  a3,(a4)+
  707.     move.l  a2,(a4)+
  708.     lea     8(a2),a2
  709.     lea     4(a4),a1
  710.     move.l  a1,(a4)+
  711.     dbra    d6,TxtInitLoop
  712.     move.l  KrautWinHandle(a5),a4
  713.     move.l  wd_RPort(a4),a0
  714.     lea     geKrautTxt(a5),a1
  715.     move.w  WinBorderLeft(a5),d0
  716.     move.w  WinBorderTop(a5),d1
  717.     jsr     _LVOPrintIText(a6)
  718.     move.l  GKraut(a5),a4
  719.     moveq   #1,d7
  720.     bsr.w   SelGK
  721.     lea     GKraut(a5),a4
  722.     move.l  a4,AnGKraut(a5)
  723.     move.b  #IECLASS_RAWKEY,RawErkennung!ie_Class(a5)
  724. KrautMsgAbFragen
  725.     move.l  KrautWinHandle(a5),a0
  726.     move.l  wd_UserPort(a0),a0
  727.     move.l  4.w,a6
  728.     jsr     _LVOWaitPort(a6)
  729. nochzwei
  730.     move.l  GADBase(a5),a6
  731.     move.l  KrautWinHandle(a5),a0
  732.     move.l  wd_UserPort(a0),a0
  733.     jsr     _LVOGT_GetIMsg(a6)
  734.     move.l  d0,a1
  735.     beq.s   KrautMsgAbFragen
  736.     move.l  im_Class(a1),d4
  737.     move.w  im_Code(a1),d5
  738.     move.w  im_Qualifier(a1),d6
  739.     move.l  im_IAddress(a1),a4
  740.     jsr     _LVOGT_ReplyIMsg(a6)
  741.     cmpi.l  #IDCMP_CLOSEWINDOW,d4
  742.     beq.s   Krautende
  743.     cmpi.l  #IDCMP_GADGETUP,d4
  744.     beq.w   KGadAuswertung
  745.     cmpi.l  #IDCMP_RAWKEY,d4
  746.     beq.w   KTastendruck
  747.     cmpi.l  #IDCMP_VANILLAKEY,d4
  748.     beq.w   KKey
  749.     bra.s   nochzwei
  750. Krautende
  751.     lea     geKrautTxt(a5),a0
  752.     move.w  #KraeuterAnzahl*it_SIZEOF-1,d0
  753. InitITNullLoop
  754.     move.b  #0,(a0)+
  755.     dbra    d0,InitITNullLoop
  756.     move.w  #KraeuterAnzahl-1,d0
  757.     lea     GKraut(a5),a0
  758. GKrautInitLoop
  759.     move.l  #0,(a0)+
  760.     dbra    d0,GKrautInitLoop
  761.     move.l  INTUIBase(a5),a6
  762.     move.l  KrautWinHandle(a5),a0
  763.     jsr     _LVOCloseWindow(a6)
  764. KrautErrorGadget
  765.     move.l  GADBase(a5),a6
  766.     move.l  KrautGadListe(a5),a0
  767.     jsr     _LVOFreeGadgets(a6)
  768.     bra.w   nocheine
  769. SelGK
  770.     move.l  KrautWinHandle(a5),a0
  771.     bsr.w   KRemoveGSuche
  772.     tst.l   d7
  773.     beq.s   DisSel
  774.     or.w    #GFLG_SELECTED,gg_Flags(a4)
  775.     bra.s   NunSel
  776. DisSel
  777.     eor.w   #GFLG_SELECTED,gg_Flags(a4)
  778. NunSel
  779.     move.l  KrautWinHandle(a5),a0
  780.     bsr.w   KAddGSuche
  781.     rts
  782. InitKGadget
  783.     moveq   #7-1,d0
  784. GadgetCopyLoop
  785.     move.l  (a1)+,(a2)+
  786.     dbra    d0,GadgetCopyLoop
  787.     move.w  (a1)+,(a2)+
  788.     rts
  789. KrautWindowError
  790.     move.l  WindowHandle(a5),a0
  791.     lea     ErrReqTit(pc),a2
  792.     lea     WinErrReqTxt(pc),a3
  793.     lea     FeGadTxt(pc),a4
  794.     bsr.w   AllRequester
  795.     bra.s   KrautErrorGadget
  796. WordWandler
  797.     moveq   #0,d0
  798.     move.l  #1000,d1
  799.     bsr.s   Teilen
  800.     moveq   #100,d1
  801.     bsr.s   Teilen
  802.     moveq   #10,d1
  803.     bsr.s   Teilen
  804.     moveq   #1,d1
  805.     bsr.s   Teilen
  806.     rts
  807. Teilen
  808.     divu.w  d1,d6
  809.     tst.w   d6
  810.     bne.s   eineZahl
  811.     tst.b   d0
  812.     bne.s   eineZahl
  813.     move.b  #$20,(a3)+
  814.     bra.s   ZahlWeiterLeer
  815. eineZahl
  816.     moveq   #1,d0
  817.     add.b   #'0',d6
  818.     move.b  d6,(a3)+
  819. ZahlWeiterLeer
  820.     move.w  #0,d6
  821.     swap    d6
  822.     rts
  823. ;;
  824. ** Wuerfel FalscherWert
  825. Wuerfel
  826.     move.l  AltZufall(a5),d1
  827.     add.l   #$d73b5217,d1
  828.     rol.l   #8,d1
  829.     rol.l   #8,d1
  830.     rol.l   #3,d1
  831.     move.l  d1,AltZufall(a5)
  832.     clr.w   d1
  833.     swap    d1
  834.     divu    d0,d1
  835.     swap    d1
  836.     addq    #1,d1
  837.     rts
  838. FalscherWert4
  839.     lea     StundenFeReqTxt(pc),a3
  840.     bra.s   FalscherWert
  841. FalscherWert3
  842.     lea     TAWFeReqTxt(pc),a3
  843.     bra.s   FalscherWert
  844. FalscherWert2
  845.     lea     INFeReqTxt(pc),a3
  846.     bra.s   FalscherWert
  847. FalscherWert1
  848.     lea     KLFeReqTxt(pc),a3
  849.     bra.s   FalscherWert
  850. FalscherWert5
  851.     lea     FFFeReqTxt(pc),a3
  852. FalscherWert
  853.     move.l  WindowHandle(a5),a0
  854.     lea     ErrReqTit(pc),a2
  855.     lea     FeGadTxt(pc),a4
  856.     bsr.w   AllRequester
  857.     bra.w   nocheine
  858. ;;
  859. ** KräuterWin Auswertung
  860. UpTaste
  861.     move.l  AnGKraut(a5),a4
  862.     lea     GKraut(a5),a3
  863.     cmp.l   a3,a4
  864.     beq.s   DownTEnde
  865.     and.b   #IEQUALIFIER_LSHIFT!IEQUALIFIER_RSHIFT,d6
  866.     bne.s   GadAnwaehlen
  867.     lea     -4(a4),a3
  868.     bra.s   GadAnwaehlen
  869. DownTaste
  870.     move.l  AnGKraut(a5),a4
  871.     lea     4(a4),a3
  872.     tst.l   (a3)
  873.     beq.s   DownTEnde
  874.     and.b   #IEQUALIFIER_LSHIFT!IEQUALIFIER_RSHIFT,d6
  875.     beq.s   GadAnwaehlen
  876. nocheinGadget
  877.     lea     4(a3),a3
  878.     tst.l   (a3)
  879.     bne.s   nocheinGadget
  880.     lea     -4(a3),a3
  881. GadAnwaehlen
  882.     move.l  (a4),a4
  883.     moveq   #0,d7
  884.     bsr.w   SelGK
  885.     moveq   #1,d7
  886.     move.l  (a3),a4
  887.     bsr.w   SelGK
  888.     move.l  (a3),a3
  889.     bsr.s   GAddrKraut
  890. DownTEnde
  891.     bra.w   nochzwei
  892. KTastendruck
  893.     cmp.b   #$4e,d5
  894.     beq.s   InfoFensterReq
  895.     cmp.b   #$4d,d5         ;Down
  896.     beq.s   DownTaste
  897.     cmp.b   #$4c,d5         ;Up
  898.     beq.s   UpTaste
  899.     bra.w   nochzwei
  900. KKey
  901.     cmp.b   #$0d,d5
  902.     beq.s   InfoFensterReq
  903.     cmp.b   #$1b,d5
  904.     beq.w   Krautende
  905.     bclr    #5,d5
  906.     cmp.b   #'Q',d5
  907.     beq.w   Krautende
  908.     bra.w   nochzwei
  909. GAddrKraut
  910.     lea     GKraut(a5),a4
  911. FindeGAdd
  912.     cmp.l   (a4)+,a3
  913.     beq.s   RichtGAdd
  914.     bra.s   FindeGAdd
  915. RichtGAdd
  916.     lea     -4(a4),a4
  917.     move.l  a4,AnGKraut(a5)
  918.     rts
  919. InfoFensterReq
  920.     move.l  AnGKraut(a5),a4
  921.     move.l  (a4),a4
  922. KGadAuswertung
  923.     moveq.l #0,d6
  924.     move.w  gg_GadgetID(a4),d6
  925.     cmp.b   #KraeuterAnzahl,d6
  926.     bhi.s   keinKrautGad
  927.     move.l  a4,a3
  928.     moveq   #0,d7
  929.     move.l  AnGKraut(a5),a4
  930.     move.l  (a4),a4
  931.     bsr.w   SelGK
  932.     moveq   #1,d7
  933.     move.l  a3,a4
  934.     bsr.w   SelGK
  935.     bsr.s   GAddrKraut
  936.     move.b  #ks_SIZEOF,d1
  937.     mulu    d1,d6
  938.     lea     Alraune(pc),a4
  939.     lea     (a4,d6.w),a4
  940.     move.l  WindowHandle(a5),a0
  941.     move.l  ks_Name(a4),a2
  942.     move.l  ks_InfoTxt(a4),a3
  943.     lea     AbGadTxt(pc),a4
  944.     bsr.w   AllRequester
  945. keinKrautGad
  946.     bra.w   nochzwei
  947. ;;
  948. ** ProbeGG SpeFenster init öffnen usw
  949. SpezialSS
  950.     move.l  GADBase(a5),a6
  951.     lea     SpeGadgetListe(a5),a0
  952.     jsr     _LVOCreateContext(a6)
  953.     move.l  d0,a0
  954.     beq.w   SpeErrorGadget
  955.     moveq   #LISTVIEW_KIND,d0
  956.     lea     KrautListeGad(pc),a1
  957.     move.l  VisualInfo(a5),gng_VisualInfo(a1)
  958.     move.l  FontAddr(a5),gng_TextAttr(a1)
  959.     lea     KraSpeGText(pc),a2
  960.     move.l  a2,gng_GadgetText(a1)
  961.     lea     GebietTag(pc),a2
  962.     lea     GSpeSucList(a5),a3
  963.     move.l  a3,4(a2)
  964.     jsr     _LVOCreateGadgetA(a6)
  965.     move.l  d0,GKraSpe(a5)
  966.     beq.w   SpeErrorGadget
  967.     move.l  d0,a0
  968.     moveq   #BUTTON_KIND,d0
  969.     lea     OKGad(pc),a1
  970.     move.l  VisualInfo(a5),gng_VisualInfo(a1)
  971.     move.l  FontAddr(a5),gng_TextAttr(a1)
  972.     move.w  #17,gng_LeftEdge(a1)
  973.     lea     OKGText(pc),a2
  974.     move.l  a2,gng_GadgetText(a1)
  975.     lea     SBGTag(pc),a2
  976.     jsr     _LVOCreateGadgetA(a6)
  977.     move.l  d0,GOK(a5)
  978.     beq.w   SpeErrorGadget
  979.     move.l  d0,a0
  980.     moveq   #BUTTON_KIND,d0
  981.     lea     OKGad(pc),a1
  982.     add.w   #90,gng_LeftEdge(a1)
  983.     lea     LoesGText(pc),a2
  984.     move.l  a2,gng_GadgetText(a1)
  985.     lea     SBGTag(pc),a2
  986.     jsr     _LVOCreateGadgetA(a6)
  987.     move.l  d0,GLoes(a5)
  988.     beq.w   SpeErrorGadget
  989.     move.l  d0,a0
  990.     moveq   #BUTTON_KIND,d0
  991.     lea     OKGad(pc),a1
  992.     add.w   #90,gng_LeftEdge(a1)
  993.     lea     VerwerfenGText(pc),a2
  994.     move.l  a2,gng_GadgetText(a1)
  995.     lea     SBGTag(pc),a2
  996.     jsr     _LVOCreateGadgetA(a6)
  997.     move.l  d0,GVerwerfen(a5)
  998.     beq.w   SpeErrorGadget
  999.     move.l  INTUIBase(a5),a6
  1000.     lea     KraWinTags(pc),a1
  1001.     move.l  SpeGadgetListe(a5),12(a1)
  1002.     lea     KraWinTitle(pc),a0
  1003.     move.l  a0,4(a1)
  1004.     move.l  a0,20(a1)
  1005.     suba.l  a0,a0
  1006.     jsr     _LVOOpenWindowTagList(a6)
  1007.     move.l  d0,SpezialWinHandle(a5)
  1008.     beq.w   SpeErrorGadget
  1009.     move.l  SpezialWinHandle(a5),a4
  1010.     bsr.w   RefreshWin
  1011. SpeMessage
  1012.     move.l  SpezialWinHandle(a5),a0
  1013.     move.l  wd_UserPort(a0),a0
  1014.     move.l  4.w,a6
  1015.     jsr     _LVOWaitPort(a6)
  1016. nochdrei
  1017.     move.l  GADBase(a5),a6
  1018.     move.l  SpezialWinHandle(a5),a0
  1019.     move.l  wd_UserPort(a0),a0
  1020.     jsr     _LVOGT_GetIMsg(a6)
  1021.     move.l  d0,a1
  1022.     beq.s   SpeMessage
  1023.     move.l  im_Class(a1),d4
  1024.     move.w  im_Code(a1),d5
  1025.     move.w  im_Qualifier(a1),d6
  1026.     move.l  im_IAddress(a1),a4
  1027.     jsr     _LVOGT_ReplyIMsg(a6)
  1028.     cmpi.l  #IDCMP_CLOSEWINDOW,d4
  1029.     beq.w   SpeEnde
  1030.     cmpi.l  #IDCMP_REFRESHWINDOW,d4
  1031.     beq.b   SpeRefreWin
  1032.     cmpi.l  #IDCMP_GADGETUP,d4
  1033.     beq.b   SpeGadAuswertung
  1034.     cmpi.l  #IDCMP_VANILLAKEY,d4
  1035.     beq.w   SpeTastendruck
  1036.     cmpi.l  #IDCMP_RAWKEY,d4
  1037.     beq.s   SpeKeydruck
  1038.     bra.s   nochdrei
  1039. SpeRefreWin
  1040.     move.l  SpezialWinHandle(a5),a4
  1041.     bsr.w   RefreshWin
  1042.     bra.b   nochdrei
  1043. SpeGadAuswertung
  1044.     cmp.l   GKraSpe(a5),a4
  1045.     beq.s   SpeListe
  1046.     cmp.l   GOK(a5),a4
  1047.     beq.w   SpeEnde
  1048.     cmp.l   GVerwerfen(a5),a4
  1049.     beq.s   SpeVorEnde
  1050.     cmp.l   GLoes(a5),a4
  1051.     beq.w   SpeLoeschen
  1052.     bra.s   nochdrei
  1053. SpeVorEnde
  1054.     move.b  #1,StatusSpe(a5)
  1055.     bra.w   SpeEnde
  1056. SpeLoeschen
  1057.     move.w  #KraeuterAnzahl-1,d6
  1058.     lea     GSpeSucList(a5),a4
  1059. LoescheSpeList
  1060.     move.w  d6,d5
  1061.     bsr.w   ListeNamen
  1062.     move.b  #' ',(a0)
  1063.     dbra    d6,LoescheSpeList
  1064.     bra.s   SpeRefreWin
  1065. SpeListe
  1066.     move.b  d5,SpeKraNummer(a5)
  1067. SpeListe2
  1068.     move.l  SpezialWinHandle(a5),a3
  1069.     lea     GSpeSucList(a5),a4
  1070.     bsr.w   ListAktive
  1071.     bra.w   nochdrei
  1072. SpeKeydruck
  1073.     cmp.b   #$4f,d5
  1074.     beq.s   SpeListeSel
  1075.     cmp.b   #$4e,d5
  1076.     beq.s   SpeListeSel
  1077.     cmp.b   #$4d,d5         ;Down
  1078.     beq.s   SpeDownTaste
  1079.     cmp.b   #$4c,d5         ;Up
  1080.     beq.s   SpeUpTaste
  1081.     bra.w   nochdrei
  1082. SpeUpTaste
  1083.     tst.b   SpeKraNummer(a5)
  1084.     beq.w   nochdrei
  1085.     and.b   #IEQUALIFIER_LSHIFT!IEQUALIFIER_RSHIFT,d6
  1086.     beq.s   keineUpShift
  1087.     move.b  #1,SpeKraNummer(a5)
  1088. keineUpShift
  1089.     sub.b   #1,SpeKraNummer(a5)
  1090.     bra.s   TasSteuerLis
  1091. SpeDownTaste
  1092.     cmp.b   #KraeuterAnzahl-1,SpeKraNummer(a5)
  1093.     beq.w   nochdrei
  1094.     and.b   #IEQUALIFIER_LSHIFT!IEQUALIFIER_RSHIFT,d6
  1095.     beq.s   keineDownShift
  1096.     move.b  #KraeuterAnzahl-2,SpeKraNummer(a5)
  1097. keineDownShift
  1098.     add.b   #1,SpeKraNummer(a5)
  1099. TasSteuerLis
  1100.     move.l  GKraSpe(a5),a0
  1101.     move.l  SpezialWinHandle(a5),a1
  1102.     suba.l  a2,a2
  1103.     lea     GKraSpeTags(pc),a3
  1104.     move.b  SpeKraNummer(a5),7(a3)
  1105.     move.b  SpeKraNummer(a5),15(a3)
  1106.     move.l  GADBase(a5),a6
  1107.     jsr     _LVOGT_SetGadgetAttrsA(a6)
  1108.     bra.w   nochdrei
  1109. SpeListeSel
  1110.     move.b  SpeKraNummer(a5),d5
  1111.     bra.s   SpeListe2
  1112. SpeTastendruck
  1113.     cmp.b   #$0d,d5
  1114.     beq.b   SpeListeSel
  1115.     cmp.b   #$1b,d5
  1116.     beq.b   SpeEnde
  1117.     bclr    #5,d5
  1118.     cmp.b   #'Q',d5
  1119.     beq.b   SpeEnde
  1120.     cmp.b   #'V',d5
  1121.     beq.w   SpeVorEnde
  1122.     cmp.b   #'O',d5
  1123.     beq.w   SpeEnde
  1124.     cmp.b   #'L',d5
  1125.     beq.w   SpeLoeschen
  1126.     bra.w   nochdrei
  1127. SpeEnde
  1128.     move.l  INTUIBase(a5),a6
  1129.     move.l  SpezialWinHandle(a5),a0
  1130.     jsr     _LVOCloseWindow(a6)
  1131. SpeErrorGadget
  1132.     move.l  GADBase(a5),a6
  1133.     move.l  SpeGadgetListe(a5),a0
  1134.     jsr     _LVOFreeGadgets(a6)
  1135.     tst.b   StatusSpe(a5)
  1136.     bne.s   SpeError
  1137. ;;
  1138. ** SpeSucList auswerten und nullinit
  1139.     moveq   #0,d0
  1140.     moveq   #0,d1
  1141.     moveq   #0,d2
  1142.     move.w  #KraeuterAnzahl-1,d6
  1143.     lea     GSpeSucList(a5),a4
  1144. SpeSucListNull
  1145.     move.w  d6,d5
  1146.     bsr.w   ListeNamen
  1147.     cmp.b   #'+',(a0)
  1148.     bne.s   NichtSuc
  1149.     cmp.b   #31,d6
  1150.     bls.s   NochDNull
  1151.     move.b  d6,d4
  1152.     sub.b   #32,d4
  1153.     bset    d4,d1
  1154.     bra.s   AddSuc
  1155. NochDNull
  1156.     bset    d6,d0
  1157. AddSuc
  1158.     addq    #1,d2
  1159. NichtSuc
  1160.     dbra    d6,SpeSucListNull
  1161.     move.l  d0,SpeKraeuter0(a5)
  1162.     move.l  d1,SpeKraeuter1(a5)
  1163.     cmp.b   #1,d2
  1164.     bne.s   DreiBoni
  1165.     move.b  #4,SpeBonus(a5)
  1166.     rts
  1167. DreiBoni
  1168.     cmp.b   #2,d2
  1169.     bne.s   ZweiBoni
  1170.     move.b  #3,SpeBonus(a5)
  1171.     rts
  1172. ZweiBoni
  1173.     cmp.b   #3,d2
  1174.     bne.s   EinsBoni
  1175.     move.b  #2,SpeBonus(a5)
  1176.     rts
  1177. EinsBoni
  1178.     cmp.b   #4,d2
  1179.     bne.s   SpeError
  1180.     move.b  #1,SpeBonus(a5)
  1181. SpeError
  1182.     rts
  1183. ;;
  1184. ;;
  1185. ** Window Abfrage Gadget/Menu/Tastatur Auswertung
  1186. ** MessageAbFragen
  1187. MessageAbFragen
  1188.     move.l  WindowHandle(a5),a0
  1189.     move.l  wd_UserPort(a0),a0
  1190.     move.l  4.w,a6
  1191.     jsr     _LVOWaitPort(a6)
  1192. nocheine
  1193.     move.l  GADBase(a5),a6
  1194.     move.l  WindowHandle(a5),a0
  1195.     move.l  wd_UserPort(a0),a0
  1196.     jsr     _LVOGT_GetIMsg(a6)
  1197.     move.l  d0,a1
  1198.     beq.s   MessageAbFragen
  1199.     move.l  im_Class(a1),d4
  1200.     move.w  im_Code(a1),d5
  1201.     move.w  im_Qualifier(a1),d6
  1202.     move.l  im_IAddress(a1),a4
  1203.     jsr     _LVOGT_ReplyIMsg(a6)
  1204.     cmp.l   #IDCMP_CLOSEWINDOW,d4
  1205.     beq.s   ende
  1206.     cmp.l   #IDCMP_REFRESHWINDOW,d4
  1207.     beq.s   RefreWin
  1208.     cmp.l   #IDCMP_GADGETUP,d4
  1209.     beq.w   GadAuswertung
  1210.     cmp.l   #IDCMP_MENUPICK,d4
  1211.     beq.w   MenuAuswertung
  1212.     cmp.l   #IDCMP_VANILLAKEY,d4
  1213.     beq.w   Tastendruck
  1214.     cmp.l   #IDCMP_RAWKEY,d4
  1215.     beq.w   Keydruck
  1216.     cmp.l   #IDCMP_MOUSEMOVE,d4
  1217.     beq.w   MouseBeweg
  1218.     bra.s   nocheine
  1219. ;;
  1220. ** RefreWin
  1221. RefreWin
  1222.     move.l  WindowHandle(a5),a4
  1223.     bsr.w   RefreshWin
  1224.     bra.s   nocheine
  1225. ;;
  1226. ** ende
  1227. ende
  1228.     move.l  WindowHandle(a5),a0
  1229.     lea     EnReqTitle(pc),a2
  1230.     lea     EnReqTxt(pc),a3
  1231.     lea     EnGadTxt(pc),a4
  1232.     bsr.w   AllRequester
  1233.     tst.l   d0
  1234.     beq.w   nocheine
  1235.     rts
  1236. ;;
  1237. ** Keydruck
  1238. Keydruck
  1239.     cmp.b   #$4e,d5
  1240.     beq.s   ChangeGadListe
  1241.     cmp.b   #$4f,d5
  1242.     beq.s   ChangeGadListe
  1243.     cmp.b   #$4d,d5
  1244.     beq.s   RunterTaste
  1245.     cmp.b   #$4c,d5
  1246.     beq.s   HochTaste
  1247.     bra.w   nocheine
  1248. ChangeGadListe
  1249.     tst.b   GListWahlStatus(a5)
  1250.     beq.s   FloraWahl
  1251.     moveq   #2,d6
  1252.     bsr.w   DSARender
  1253.     move.b  #0,GListWahlStatus(a5)
  1254.     move.b  #14-1,MaxListeAnz(a5)
  1255.     move.b  AktivListeEn(a5),FloraAktiv(a5)
  1256.     move.b  GebietAktiv(a5),AktivListeEn(a5)
  1257.     move.l  GGebiet(a5),ListHandle(a5)
  1258.     bra.w   nocheine
  1259. FloraWahl
  1260.     moveq   #1,d6
  1261.     bsr.w   DSARender
  1262.     move.b  #1,GListWahlStatus(a5)
  1263.     move.b  #30-1,MaxListeAnz(a5)
  1264.     move.b  AktivListeEn(a5),GebietAktiv(a5)
  1265.     move.b  FloraAktiv(a5),AktivListeEn(a5)
  1266.     move.l  GFlora(a5),ListHandle(a5)
  1267.     bra.w   nocheine
  1268. HochTaste
  1269.     tst.b   AktivListeEn(a5)
  1270.     beq.w   nocheine
  1271.     and.b   #IEQUALIFIER_LSHIFT!IEQUALIFIER_RSHIFT,d6
  1272.     beq.s   NoUpShift
  1273.     move.b  #1,AktivListeEn(a5)
  1274. NoUpShift
  1275.     sub.b   #1,AktivListeEn(a5)
  1276.     bra.s   HTasSteuerLis
  1277. RunterTaste
  1278.     move.b  MaxListeAnz(a5),d0
  1279.     cmp.b   AktivListeEn(a5),d0
  1280.     beq.w   nocheine
  1281.     and.b   #IEQUALIFIER_LSHIFT!IEQUALIFIER_RSHIFT,d6
  1282.     beq.s   NoDownShift
  1283.     subq    #1,d0
  1284.     move.b  d0,AktivListeEn(a5)
  1285. NoDownShift
  1286.     add.b   #1,AktivListeEn(a5)
  1287. HTasSteuerLis
  1288.     move.l  ListHandle(a5),a0
  1289.     move.l  WindowHandle(a5),a1
  1290.     suba.l  a2,a2
  1291.     lea     GKraSpeTags(pc),a3
  1292.     move.b  AktivListeEn(a5),7(a3)
  1293.     move.b  AktivListeEn(a5),15(a3)
  1294.     move.l  GADBase(a5),a6
  1295.     jsr     _LVOGT_SetGadgetAttrsA(a6)
  1296.     bra.w   nocheine
  1297. ;;
  1298. ** Tastendruck
  1299. Tastendruck
  1300.     cmp.b   #$1b,d5
  1301.     beq.w   ende
  1302.     cmp.b   #13,d5
  1303.     beq.s   Return
  1304.     bclr    #5,d5
  1305.     cmp.b   #'Q',d5
  1306.     beq.w   ende
  1307.     bclr    #5,d5
  1308.     cmp.b   #'K',d5
  1309.     beq.s   KlugGSec
  1310.     cmp.b   #'I',d5
  1311.     beq.s   IntuiGSec
  1312.     cmp.b   #'F',d5
  1313.     beq.s   FingerGSec
  1314.     cmp.b   #'T',d5
  1315.     beq.s   TalentGSec
  1316.     cmp.b   #'U',d5
  1317.     beq.w   StundenGSec
  1318.     cmp.b   #'S',d5
  1319.     beq.s   SucheGSec
  1320.     cmp.b   #'P',d5
  1321.     beq.s   SpeSucGSec
  1322.     bra.w   nocheine
  1323. Return
  1324.     tst.b   GListWahlStatus(a5)
  1325.     beq.w   nocheine
  1326.     moveq   #0,d5
  1327.     move.b  AktivListeEn(a5),d5
  1328.     bra.w   ListeAktive
  1329. SpeSucGSec
  1330.     move.l  GADBase(a5),a6
  1331.     move.l  GSpeSuc(a5),a0
  1332.     move.l  WindowHandle(a5),a1
  1333.     suba.l  a2,a2
  1334.     lea     SpeSucGTag(pc),a3
  1335.     eor.w   #1,6(a3)
  1336.     jsr     _LVOGT_SetGadgetAttrsA(a6)
  1337.     bra.w   nocheine
  1338. KlugGSec
  1339.     move.l  GKL(a5),a0
  1340.     bra.w   AKtiviertGad
  1341. IntuiGSec
  1342.     move.l  GIN(a5),a0
  1343.     bra.s   AKtiviertGad
  1344. FingerGSec
  1345.     move.l  GFF(a5),a0
  1346.     bra.s   AKtiviertGad
  1347. TalentGSec
  1348.     move.l  GTAW(a5),a0
  1349.     bra.s   AKtiviertGad
  1350. StundenGSec
  1351.     move.l  GStunden(a5),a0
  1352. AKtiviertGad
  1353.     move.l  WindowHandle(a5),a1
  1354.     suba.l  a2,a2
  1355.     move.l  INTUIBase(a5),a6
  1356.     jsr     _LVOActivateGadget(a6)
  1357.     bra.w   nocheine
  1358. SucheGSec
  1359.     move.l  GSuchen(a5),a4
  1360.     bsr.s   RemoveGSuche
  1361.     or.w    #GFLG_SELECTED,gg_Flags(a4)
  1362.     bsr.s   AddGSuche
  1363.     moveq   #5,d1
  1364.     move.l  DOSBase(a5),a6
  1365.     jsr     _LVODelay(a6)
  1366.     bsr.s   RemoveGSuche
  1367.     eor.w   #GFLG_SELECTED,gg_Flags(a4)
  1368.     bsr.s   AddGSuche
  1369.     bra.w   SuchenStart
  1370. RemoveGSuche
  1371.     move.l  WindowHandle(a5),a0
  1372. KRemoveGSuche
  1373.     move.l  a4,a1
  1374.     move.l  INTUIBase(a5),a6
  1375.     jsr     _LVORemoveGadget(a6)
  1376.     rts
  1377. KAddGSuche
  1378.     move.l  KrautWinHandle(a5),a0
  1379.     move.l  a4,a1
  1380.     moveq   #-1,d0
  1381.     jsr     _LVOAddGadget(a6)
  1382.     move.l  a4,a0
  1383.     move.l  KrautWinHandle(a5),a1
  1384.     suba.l  a2,a2
  1385.     jsr     _LVORefreshGadgets(a6)
  1386.     rts
  1387. AddGSuche
  1388.     move.l  WindowHandle(a5),a0
  1389.     move.l  a4,a1
  1390.     moveq   #-1,d0
  1391.     jsr     _LVOAddGadget(a6)
  1392.     move.l  a4,a0
  1393.     move.l  WindowHandle(a5),a1
  1394.     suba.l  a2,a2
  1395.     jsr     _LVORefreshGadgets(a6)
  1396.     rts
  1397. ;;
  1398. ** MouseBeweg
  1399. MouseBeweg
  1400.     bra.s   ListeAktive
  1401. ;;
  1402. ** GadAuswertung
  1403. GadAuswertung
  1404.     cmp.l   GFlora(a5),a4
  1405.     beq.b   ListeAktive
  1406.     cmp.l   GSuchen(a5),a4
  1407.     beq.w   SuchenStart
  1408.     cmp.l   GGebiet(a5),a4
  1409.     beq.s   WelchesGebiet
  1410.     cmp.l   GSpeSuc(a5),a4
  1411.     beq.s   CheckTagEOR
  1412.     bra.w   nocheine
  1413. CheckTagEOR
  1414.     lea     SpeSucGTag(pc),a3
  1415.     eor.w   #1,6(a3)
  1416.     bra.w   nocheine
  1417. WelchesGebiet
  1418.     move.b  d5,GebietAktiv(a5)
  1419.     tst.b   GListWahlStatus(a5)
  1420.     bne.w   FloraWahl
  1421.     move.b  d5,AktivListeEn(a5)
  1422. keinAktkoor
  1423.     bra.w   nocheine
  1424. ListeAktive
  1425.     move.l  WindowHandle(a5),a3
  1426.     lea     GFloraList(a5),a4
  1427.     move.b  d5,FloraAktiv(a5)
  1428.     tst.b   GListWahlStatus(a5)
  1429.     beq.s   keinAkt2koor
  1430.     move.b  d5,AktivListeEn(a5)
  1431. keinAkt2koor
  1432.     bsr.w   ListAktive
  1433.     bra.w   nocheine
  1434. ListAktive
  1435.     bsr.s   ListeNamen
  1436.     cmp.b   #'+',(a0)
  1437.     beq.s   SternLoeschen
  1438.     move.b  #'+',(a0)
  1439.     bra.s   SternZeigen
  1440. SternLoeschen
  1441.     move.b  #' ',(a0)
  1442. SternZeigen
  1443.     move.l  a3,a4
  1444.     bsr.w   RefreshWin
  1445.     rts
  1446. ListeNamen
  1447.     move.l  a4,a0
  1448.     subq    #1,d5
  1449.     move.l  LH_HEAD(a0),a0
  1450.     cmp.b   #0,d5
  1451.     bmi.b   LiAuEnde
  1452. ListAuswertung
  1453.     move.l  LN_SUCC(a0),a0
  1454.     dbra    d5,ListAuswertung
  1455. LiAuEnde
  1456.     move.l  LN_NAME(a0),a0
  1457.     rts
  1458. ;;
  1459. ** MenuAuswertung
  1460. MenuAuswertung
  1461.     move.l  INTUIBase(a5),a6
  1462.     cmpi.w  #MENUNULL,d5
  1463.     beq.w   nocheine
  1464.     cmp.w   #$F800,d5
  1465.     beq.b   About
  1466.     cmp.w   #$F820,d5
  1467.     beq.w   ende
  1468.     bra.w   nocheine
  1469. About
  1470.     move.l  WindowHandle(a5),a0
  1471.     lea     AbReqTi(pc),a2
  1472.     lea     AbReqTxt(pc),a3
  1473.     lea     AbGadTxt(pc),a4
  1474.     bsr.s   AllRequester
  1475.     bra.w   nocheine
  1476. ;;
  1477. ;;
  1478. ** AllRequester
  1479. *   a0=Windowptr
  1480. *   a2=ReqTitle
  1481. *   a3=ReqText
  1482. *   a4=ReqGadget
  1483. *       d0= 0:Nein 1:Ja
  1484. AllRequester
  1485.     lea     EndeReq(pc),a1
  1486.     move.l  a2,8(a1)
  1487.     move.l  a3,12(a1)
  1488.     move.l  a4,16(a1)
  1489.     suba.l  a2,a2
  1490.     suba.l  a3,a3
  1491.     move.l  INTUIBase(a5),a6
  1492.     jsr     _LVOEasyRequestArgs(a6)
  1493.     rts
  1494. ;;
  1495. ** DSARender Layout Setmenu
  1496. DSARender
  1497.     move.w  WinBorderLeft(a5),d4
  1498.     move.w  WinBorderTop(a5),d5
  1499.     move.l  GADBase(a5),a6
  1500.     move.l  WinRPort(a5),a0
  1501.     lea     DrawBoxTag1(pc),a1
  1502.     move.l  VisualInfo(a5),4(a1)
  1503.     move.w  #14,d0
  1504.     add.w   d4,d0
  1505.     move.w  #5,d1
  1506.     add.w   d5,d1
  1507.     move.w  #552,d2
  1508.     move.w  #37,d3
  1509.     jsr     _LVODrawBevelBoxA(a6)
  1510.     move.l  WinRPort(a5),a0
  1511.     lea     DrawBoxTag1(pc),a1
  1512.     move.w  #14,d0
  1513.     add.w   d4,d0
  1514.     move.w  #42,d1
  1515.     add.w   d5,d1
  1516.     move.w  #552,d2
  1517.     move.w  #146,d3
  1518.     jsr     _LVODrawBevelBoxA(a6)
  1519.     move.l  WinRPort(a5),a0
  1520.     lea     DrawBoxTag2(pc),a1
  1521.     move.l  VisualInfo(a5),4(a1)
  1522.     move.w  #18,d0
  1523.     add.w   d4,d0
  1524.     move.w  #44,d1
  1525.     add.w   d5,d1
  1526.     move.w  #544,d2
  1527.     move.w  #142,d3
  1528.     jsr     _LVODrawBevelBoxA(a6)
  1529.     move.l  INTUIBase(a5),a6
  1530.     move.l  WinRPort(a5),a0
  1531.     lea     DSATitleText2(pc),a1
  1532.     lea     DSATitleText3(pc),a2
  1533.     move.b  d6,(a1)
  1534.     cmp.b   #1,d6
  1535.     beq.s   FloraTextHigh
  1536.     move.b  #1,(a2)
  1537.     bra.s   TextIAus
  1538. FloraTextHigh
  1539.     move.b  #2,(a2)
  1540. TextIAus
  1541.     lea     DSATitleText(pc),a1
  1542.     move.l  d4,d0
  1543.     move.l  d5,d1
  1544.     jsr     _LVOPrintIText(a6)
  1545.     rts
  1546. SetAndLayout
  1547.     move.l  INTUIBase(a5),a6
  1548.     move.l  WindowHandle(a5),a0
  1549.     move.l  MenuPtr(a5),a1
  1550.     jsr     _LVOSetMenuStrip(a6)
  1551.     move.l  d0,d1
  1552.     bne.s   SetLayOK
  1553.     moveq   #27,d7
  1554. SetLayOK
  1555.     rts
  1556. ClearMenu
  1557.     move.l  INTUIBase(a5),a6
  1558.     move.l  WindowHandle(a5),a0
  1559.     jsr     _LVOClearMenuStrip(a6)
  1560.     rts
  1561. RefreshWin
  1562.     move.l  GADBase(a5),a6
  1563.     move.l  a4,a0
  1564.     suba.l  a1,a1
  1565.     jsr     _LVOGT_RefreshWindow(a6)
  1566.     move.l  a4,a0
  1567.     jsr     _LVOGT_BeginRefresh(a6)
  1568.     move.l  a4,a0
  1569.     moveq   #DOSTRUE,d0
  1570.     jsr     _LVOGT_EndRefresh(a6)
  1571.     rts
  1572. ;;
  1573. ** MausZeiger
  1574. ;MausZeiger
  1575. ;   move.l  WindowHandle(a5),a0
  1576. ;   lea     MausData(pc),a1
  1577. ;   moveq   #14,d0
  1578. ;   moveq   #10,d1
  1579. ;   moveq   #6,d2
  1580. ;   moveq   #3,d3
  1581. ;   move.l  INTUIBase(a5),a6
  1582. ;   jsr     _LVOSetPointer(a6)
  1583. ;   rts
  1584. ;LoesMausZeiger
  1585. ;   move.l  WindowHandle(a5),a0
  1586. ;   move.l  INTUIBase(a5),a6
  1587. ;   jsr     _LVOClearPointer(a6)
  1588. ;   rts
  1589. ;;
  1590. ** FensterOeffne
  1591. FensterOeffne
  1592.     move.l  INTUIBase(a5),a6
  1593.     lea     Fenster_Tags(pc),a1
  1594.     move.l  GadgetListe(a5),12(a1)
  1595.     lea     WinTitle(pc),a0
  1596.     move.l  a0,4(a1)
  1597.     move.l  a0,20(a1)
  1598.     suba.l  a0,a0
  1599.     jsr     _LVOOpenWindowTagList(a6)
  1600.     move.l  d0,WindowHandle(a5)
  1601.     beq.s   ErrorWindow
  1602.     move.l  d0,a0
  1603.     move.l  wd_RPort(a0),WinRPort(a5)
  1604.     move.b  wd_BorderLeft(a0),d0
  1605.     ext.w   d0
  1606.     move.w  d0,WinBorderLeft(a5)
  1607.     move.b  wd_BorderTop(a0),d0
  1608.     ext.w   d0
  1609.     move.w  d0,WinBorderTop(a5)
  1610.     move.l  4.w,a6
  1611.     suba.l  a1,a1
  1612.     jsr     _LVOFindTask(a6)
  1613.     move.l  d0,meinTask(a5)
  1614.     beq.s   ErrorTask
  1615.     move.l  d0,a0
  1616.     move.l  pr_WindowPtr(a0),alterTask(a5)
  1617.     move.l  WindowHandle(a5),pr_WindowPtr(a0)
  1618.     rts
  1619. ErrorTask
  1620.     bsr.s   keinTask
  1621. ErrorWindow
  1622.     moveq   #26,d7
  1623.     rts
  1624. FensterSchliesse
  1625.     move.l  meinTask(a5),a0
  1626.     move.l  alterTask(a5),pr_WindowPtr(a0)
  1627. keinTask
  1628.     move.l  INTUIBase(a5),a6
  1629.     move.l  WindowHandle(a5),a0
  1630.     jsr     _LVOCloseWindow(a6)
  1631.     rts
  1632. ;;
  1633. ** InitMenu
  1634. InitMenu
  1635.     move.l  GADBase(a5),a6
  1636.     lea     DSANewMenu0(pc),a0
  1637.     lea     DSAKMenuTags(pc),a1
  1638.     jsr     _LVOCreateMenusA(a6)
  1639.     move.l  d0,MenuPtr(a5)
  1640.     beq.s   MenuError
  1641.     move.l  d0,a0
  1642.     move.l  VisualInfo(a5),a1
  1643.     suba.l  a2,a2
  1644.     jsr     _LVOLayoutMenusA(a6)
  1645.     move.l  d0,d1
  1646.     bne.s   MenuOK
  1647. MenuError
  1648.     moveq   #25,d7
  1649. MenuOK
  1650.     rts
  1651. RemoveMenu
  1652.     move.l  GADBase(a5),a6
  1653.     move.l  MenuPtr(a5),a0
  1654.     jsr     _LVOFreeMenus(a6)
  1655.     rts
  1656. ;;
  1657. ** InitGadget
  1658. InitGadget
  1659.     move.l  ScreenHandle(a5),a0
  1660.     lea     topaz8(pc),a2
  1661.     move.l  a2,FontAddr(a5)
  1662.     move.l  sc_Font(a0),a1
  1663.     move.w  ta_YSize(a1),d2
  1664.     add.b   sc_WBorTop(a0),d2
  1665.     addq    #1,d2
  1666.     move.b  d2,RelativeTopC(a5)
  1667.     move.b  sc_WBorTop(a0),RelativeLeftC(a5)
  1668.     lea     GadgetListe(a5),a0
  1669.     jsr     _LVOCreateContext(a6)
  1670.     move.l  d0,a0
  1671.     beq.w   ErrorGadget
  1672. ;4*INTEGER-Gadget
  1673.     lea     UniIntGad(pc),a1
  1674.     move.l  VisualInfo(a5),gng_VisualInfo(a1)
  1675.     move.l  FontAddr(a5),gng_TextAttr(a1)
  1676.     lea     UniGadText(pc),a4
  1677.     lea     KLArray(a5),a3
  1678.     move.l  a3,d3
  1679.     lea     UniGadCoordi(pc),a3
  1680.     lea     UniIntTag(pc),a2
  1681.     lea     GKL(a5),a1
  1682.     move.l  a1,d4
  1683.     moveq   #5-1,d6
  1684.     moveq   #0,d5
  1685. INT4Loop
  1686.     move.l  d0,a0
  1687.     moveq   #INTEGER_KIND,d0
  1688.     lea     UniIntGad(pc),a1
  1689.     addq.w  #1,gng_GadgetID(a1)
  1690.     add.w   d5,a4
  1691.     move.b  (a4)+,d1
  1692.     move.b  d1,d5
  1693.     move.l  a4,gng_GadgetText(a1)
  1694.     move.w  (a3)+,d2
  1695.     add.b   RelativeLeftC(a5),d2
  1696.     move.w   d2,gng_LeftEdge(a1)
  1697.     move.w  (a3)+,d2
  1698.     add.b   RelativeTopC(a5),d2
  1699.     move.w   d2,gng_TopEdge(a1)
  1700.     exg     a3,d3
  1701.     move.l  (a3)+,4(a2)
  1702.     exg     d3,a3
  1703.     jsr     _LVOCreateGadgetA(a6)
  1704.     move.l  d4,a1
  1705.     move.l  d0,(a1)+
  1706.     beq.w   ErrorGadget
  1707.     move.l  a1,d4
  1708.     dbra    d6,INT4Loop
  1709.     move.l  d0,a0
  1710.     moveq   #BUTTON_KIND,d0
  1711.     lea     SuchenGad(pc),a1
  1712.     move.b  RelativeTopC(a5),d2
  1713.     move.b  RelativeLeftC(a5),d3
  1714.     add.b   d2,gng_TopEdge+1(a1)
  1715.     add.b   d3,gng_LeftEdge+1(a1)
  1716.     move.l  VisualInfo(a5),gng_VisualInfo(a1)
  1717.     move.l  FontAddr(a5),gng_TextAttr(a1)
  1718.     lea     SuchenGText(pc),a2
  1719.     move.l  a2,gng_GadgetText(a1)
  1720.     lea     SBGTag(pc),a2
  1721.     jsr     _LVOCreateGadgetA(a6)
  1722.     move.l  d0,GSuchen(a5)
  1723.     beq.w   ErrorGadget
  1724.     move.l  d0,a0
  1725.     moveq   #CHECKBOX_KIND,d0
  1726.     lea     SpeSucGad(pc),a1
  1727.     move.b  RelativeTopC(a5),d2
  1728.     move.b  RelativeLeftC(a5),d3
  1729.     add.b   d2,gng_TopEdge+1(a1)
  1730.     add.b   d3,gng_LeftEdge+1(a1)
  1731.     move.l  VisualInfo(a5),gng_VisualInfo(a1)
  1732.     move.l  FontAddr(a5),gng_TextAttr(a1)
  1733.     lea     SpeSucGText(pc),a2
  1734.     move.l  a2,gng_GadgetText(a1)
  1735.     lea     SBGTag(pc),a2
  1736.     jsr     _LVOCreateGadgetA(a6)
  1737.     move.l  d0,GSpeSuc(a5)
  1738.     beq.b   ErrorGadget
  1739.     move.l  d0,a0
  1740.     moveq   #LISTVIEW_KIND,d0
  1741.     lea     GebietGad(pc),a1
  1742.     move.b  RelativeTopC(a5),d2
  1743.     move.b  RelativeLeftC(a5),d3
  1744.     add.b   d2,gng_TopEdge+1(a1)
  1745.     add.b   d3,gng_LeftEdge+1(a1)
  1746.     move.l  VisualInfo(a5),gng_VisualInfo(a1)
  1747.     move.l  FontAddr(a5),gng_TextAttr(a1)
  1748.     lea     GebietTag(pc),a2
  1749.     lea     GGebietList(a5),a3
  1750.     move.l  a3,4(a2)
  1751.     jsr     _LVOCreateGadgetA(a6)
  1752.     move.l  d0,GGebiet(a5)
  1753.     beq.s   ErrorGadget
  1754.     move.l  d0,a0
  1755.     moveq   #LISTVIEW_KIND,d0
  1756.     lea     GebietGad(pc),a1
  1757.     add.w   #184,gng_LeftEdge(a1)
  1758.     addq.w  #1,gng_GadgetID(a1)
  1759.     lea     GebietTag(pc),a2
  1760.     lea     GFloraList(a5),a3
  1761.     move.l  a3,4(a2)
  1762.     jsr     _LVOCreateGadgetA(a6)
  1763.     move.l  d0,GFlora(a5)
  1764.     bne.s   GadgetsOK
  1765. ErrorGadget
  1766.     moveq   #24,d7
  1767. GadgetsOK
  1768.     rts
  1769. RemoveGadget
  1770.     move.l  GADBase(a5),a6
  1771.     move.l  GadgetListe(a5),a0
  1772.     jsr     _LVOFreeGadgets(a6)
  1773.     rts
  1774. ;;
  1775. ** PubScreenOeffne
  1776. PubScreenOeffne
  1777.     move.l  INTUIBase(a5),a6
  1778.     suba.l  a0,a0
  1779.     jsr     _LVOLockPubScreen(a6)
  1780.     move.l  d0,ScreenHandle(a5)
  1781.     move.l  d0,a0
  1782.     suba.l  a1,a1
  1783.     move.l  GADBase(a5),a6
  1784.     jsr     _LVOGetVisualInfoA(a6)
  1785.     move.l  d0,VisualInfo(a5)
  1786.     bne.s   VisualOK
  1787.     moveq   #23,d7
  1788. VisualOK
  1789.     rts
  1790. ScreenSchliesse
  1791.     move.l  GADBase(a5),a6
  1792.     move.l  VisualInfo(a5),a0
  1793.     jsr     _LVOFreeVisualInfo(a6)
  1794.     move.l  INTUIBase(a5),a6
  1795.     suba.l  a0,a0
  1796.     move.l  ScreenHandle(a5),a1
  1797.     jsr     _LVOUnlockPubScreen(a6)
  1798.     rts
  1799. ;;
  1800. ** LibOeffne
  1801. LibOeffne
  1802.     move.l  a5,a4
  1803.     lea     intname(pc),a1
  1804.     bsr.s   OeffneLib
  1805.     lea     dosname(pc),a1
  1806.     bsr.s   OeffneLib
  1807.     lea     gfxname(pc),a1
  1808.     bsr.s   OeffneLib
  1809.     lea     gadname(pc),a1
  1810.     bsr.s   OeffneLib
  1811.     rts
  1812. OeffneLib
  1813.     moveq   #37,d0
  1814.     jsr     _LVOOpenLibrary(a6)
  1815.     move.l  d0,(a4)+
  1816.     beq.s   LibError
  1817.     rts
  1818. LibError
  1819.     moveq   #22,d7
  1820.     rts
  1821. LibSchliesse
  1822.     move.l  4.w,a6
  1823.     moveq   #4-1,d2
  1824.     lea     WindowHandle(a5),a4
  1825. SchliesseLib
  1826.     move.l  -(a4),a1
  1827.     cmp.l   #0,a1
  1828.     beq.s   notOpened
  1829.     jsr     _LVOCloseLibrary(a6)
  1830. notOpened
  1831.     dbra    d2,SchliesseLib
  1832.     rts
  1833. ;;
  1834. ** LONG Daten
  1835. Fenster_Tags
  1836.         dc.l    WA_Title,0
  1837.         dc.l    WA_Gadgets,0
  1838.         dc.l    WA_ScreenTitle,0
  1839.         dc.l    WA_Width,588
  1840.         dc.l    WA_Height,210
  1841.         dc.l    WA_Top,11
  1842.         dc.l    WA_Left,0
  1843.         dc.l    WA_IDCMP,IDCMP_CLOSEWINDOW!IDCMP_VANILLAKEY!IDCMP_REFRESHWINDOW!LISTVIEWIDCMP!IDCMP_MENUPICK!IDCMP_RAWKEY!IDCMP_MOUSEMOVE
  1844.         dc.l    WA_Flags,WFLG_ACTIVATE!WFLG_SMART_REFRESH!WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET
  1845.         dc.l    WA_NewLookMenus,-1
  1846.         dc.l    WA_AutoAdjust,-1
  1847.         dc.l    TAG_DONE
  1848. KraWinTags
  1849.         dc.l    WA_Title,0
  1850.         dc.l    WA_Gadgets,0
  1851.         dc.l    WA_ScreenTitle,0
  1852.         dc.l    WA_Width,302
  1853.         dc.l    WA_Height,255
  1854.         dc.l    WA_Top,0
  1855.         dc.l    WA_Left,120
  1856.         dc.l    WA_IDCMP,IDCMP_CLOSEWINDOW!IDCMP_VANILLAKEY!IDCMP_REFRESHWINDOW!LISTVIEWIDCMP!IDCMP_RAWKEY
  1857.         dc.l    WA_Flags,WFLG_ACTIVATE!WFLG_SMART_REFRESH!WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET
  1858.         dc.l    WA_NewLookMenus,-1
  1859.         dc.l    WA_AutoAdjust,-1
  1860.         dc.l    TAG_DONE
  1861. GebietGad
  1862.         dc.w    30,63,165,120
  1863.         dc.l    0,0
  1864.         dc.w    7
  1865.         dc.l    PLACETEXT_ABOVE!NG_HIGHLABEL,0,0
  1866. SuchenGad
  1867.         dc.w    425,147,108,23
  1868.         dc.l    0,0
  1869.         dc.w    6
  1870.         dc.l    PLACETEXT_IN,0,0
  1871. KrautListeGad
  1872.         dc.w    16,30,270,188
  1873.         dc.l    0,0
  1874.         dc.w    0
  1875.         dc.l    PLACETEXT_ABOVE!NG_HIGHLABEL,0,0
  1876. OKGad
  1877.         dc.w    17,220,88,25
  1878.         dc.l    0,0
  1879.         dc.w    1
  1880.         dc.l    PLACETEXT_IN,0,0
  1881. SpeSucGad
  1882.         dc.w    505,124,29,13
  1883.         dc.l    0,0
  1884.         dc.w    8
  1885.         dc.l    PLACETEXT_LEFT!NG_HIGHLABEL,0,0
  1886. UniIntGad
  1887.         dc.w    0,0,39,13
  1888.         dc.l    0,0
  1889.         dc.w    0
  1890.         dc.l    PLACETEXT_LEFT!NG_HIGHLABEL,0,0
  1891. KrautGad
  1892.         dc.w    80,0,247,10
  1893.         dc.l    0,0
  1894.         dc.w    0
  1895.         dc.l    PLACETEXT_IN,0,0
  1896. Kraut2Gad
  1897.         dc.w    80,0,247,10
  1898.         dc.l    0,0
  1899.         dc.w    0
  1900.         dc.l    PLACETEXT_IN,0,0
  1901. UniIntTag
  1902.         dc.l    GTIN_Number,0
  1903.         dc.l    GTIN_MaxChars,2
  1904. SBGTag
  1905.         dc.l    GT_Underscore,'_'
  1906.         dc.l    TAG_DONE
  1907. SpeSucGTag
  1908.         dc.l    GTCB_Checked,0
  1909.         dc.l    TAG_END
  1910. GebietTag
  1911.         dc.l    GTLV_Labels,0
  1912.         dc.l    GTLV_ShowSelected,0
  1913.         dc.l    GTLV_MakeVisible,0
  1914. GKraSpeTags
  1915.         dc.l    GTLV_Selected,0
  1916.         dc.l    GTLV_Top,0
  1917.         dc.l    TAG_DONE
  1918. topaz8
  1919.         dc.l    0
  1920.         dc.w    8
  1921.         dc.b    $00,$01
  1922. DSANewMenu0
  1923.         dc.b    NM_TITLE,0
  1924.         dc.l    0
  1925.         dc.l    0
  1926.         dc.w    0
  1927.         dc.l    0,0
  1928.         dc.b    NM_ITEM,0
  1929.         dc.l    0
  1930.         dc.l    0
  1931.         dc.w    0
  1932.         dc.l    0,0
  1933.         dc.b    NM_ITEM,0
  1934.         dc.l    0
  1935.         dc.l    0
  1936.         dc.w    0
  1937.         dc.l    0,0
  1938.         dc.b    NM_END,0
  1939.         dc.l    0,0
  1940.         dc.w    0
  1941.         dc.l    0,0
  1942. DrawBoxTag1
  1943.         dc.l    GT_VisualInfo,0,TAG_DONE
  1944. DrawBoxTag2
  1945.         dc.l    GT_VisualInfo,0
  1946.         dc.l    GTBB_Recessed,1
  1947.         dc.l    TAG_DONE
  1948. DSATitleText
  1949.         dc.b    2,0
  1950.         dc.b    RP_JAM1
  1951.         dc.b    0
  1952.         dc.w    226,14
  1953.         dc.l    0,0,0
  1954. DSATitleText1
  1955.         dc.b    3,0
  1956.         dc.b    RP_JAM1
  1957.         dc.b    0
  1958.         dc.w    226,27
  1959.         dc.l    0,0,0
  1960. DSATitleText2
  1961.         dc.b    2,0
  1962.         dc.b    RP_JAM1
  1963.         dc.b    0
  1964.         dc.w    76,50
  1965.         dc.l    0,0,0
  1966. DSATitleText3
  1967.         dc.b    1,0
  1968.         dc.b    RP_JAM1
  1969.         dc.b    0
  1970.         dc.w    256,50
  1971.         dc.l    0,0,0
  1972. DSAKMenuTags
  1973.         dc.l    GTMN_NewLookMenus,1
  1974.         dc.l    TAG_END
  1975. UniGadCoordi
  1976.         dc.w    431,63,512,63,431,80,512,80,476,100
  1977. EndeReq
  1978.         dc.l    EasyStruct_SIZEOF
  1979.         dc.l    0,0,0,0
  1980. ;MausData
  1981. ;       dc.w  $0000,$0780,$1860,$2790,$5FC8,$1FC0,$0780,$0000
  1982. ;       dc.w  $0000,$0000
  1983. ;       dc.w  $0780,$1860,$2790,$5868,$A034,$E03C,$F87C,$FFFC
  1984. ;       dc.w  $7FF8,$3FF0
  1985. ;       dc.w  $0000,$0000,$0000,$0000,$1040,$18C0,$0780,$0000
  1986. ;       dc.w  $0000,$0000
  1987. ;       dc.w  $0780,$1FE0,$3FF0,$7FF8,$EFBC,$E73C,$F87C,$FFFC
  1988. ;       dc.w  $7FF8,$3FF0
  1989. ;       dc.w  $0780,$1FE0,$3FF0,$7FF8,$FFFC,$FFFC,$FFFC,$FFFC
  1990. ;       dc.w  $7FF8,$3FF0
  1991. ;       dc.w  $0780,$1FE0,$3FF0,$7FF8,$FFFC,$FFFC,$FFFC,$FFFC
  1992. ;       dc.w  $7FF8,$3FF0
  1993. ;       dc.w  $0780,$1FE0,$3FF0,$7FF8,$EFBC,$E73C,$F87C,$FFFC
  1994. ;       dc.w  $7FF8,$3FF0
  1995. ;       dc.w  $0780,$1FE0,$3FF0,$7FF8,$FFFC,$FFFC,$FFFC,$FFFC
  1996. ;       dc.w  $7FF8,$3FF0
  1997. Alraune
  1998.         dc.w    NS!NW!NH!NU!MS!MW!MO!MA
  1999.         dc.l    WG!GF
  2000.         dc.b    15
  2001.         dc.b    0,0,0,0,0
  2002.         dc.b    1,0,0,0,0
  2003.         dc.b    0,0,0,0,0
  2004.         dc.b    0,0,0,0,0
  2005.         dc.b    0,0,0,2,0
  2006.         dc.b    0,0,0,0,0
  2007.         dc.b    0
  2008.         dc.w    0
  2009.         dc.l    0
  2010.         dc.l    0
  2011. Arganwurzel
  2012.         dc.w    SW!SF
  2013.         dc.l    RW!SU!WF
  2014.         dc.b    12
  2015.         dc.b    0,0,0,0,0
  2016.         dc.b    0,0,0,0,0
  2017.         dc.b    0,0,0,0,0
  2018.         dc.b    0,0,5,0,4
  2019.         dc.b    0,0,0,0,2
  2020.         dc.b    0,0,0,0,0
  2021.         dc.b    0
  2022.         dc.w    0
  2023.         dc.l    0
  2024.         dc.l    0
  2025. Atanax
  2026.         dc.w    GE
  2027.         dc.l    GO
  2028.         dc.b    10
  2029.         dc.b    0,0,0,0,0
  2030.         dc.b    0,0,0,4,0
  2031.         dc.b    0,0,0,0,0
  2032.         dc.b    0,0,0,0,0
  2033.         dc.b    0,0,0,0,0
  2034.         dc.b    0,0,0,0,0
  2035.         dc.b    0
  2036.         dc.w    0
  2037.         dc.l    0
  2038.         dc.l    0
  2039. Atmon
  2040.         dc.w    GE!WR!MO
  2041.         dc.l    ST!HO!SU!FA
  2042.         dc.b    6
  2043.         dc.b    0,0,1,0,0
  2044.         dc.b    0,0,0,0,3
  2045.         dc.b    0,0,0,0,0
  2046.         dc.b    0,0,0,0,1
  2047.         dc.b    5,0,0,0,0
  2048.         dc.b    0,0,0,0,0
  2049.         dc.b    0
  2050.         dc.w    0
  2051.         dc.l    0
  2052.         dc.l    0
  2053. Basilamine
  2054.         dc.w    NH
  2055.         dc.l    WA!WD
  2056.         dc.b    15
  2057.         dc.b    0,0,0,0,0
  2058.         dc.b    0,0,0,0,0
  2059.         dc.b    0,0,0,0,0
  2060.         dc.b    0,0,0,0,0
  2061.         dc.b    0,0,6,0,0
  2062.         dc.b    0,4,0,0,0
  2063.         dc.b    0
  2064.         dc.w    0
  2065.         dc.l    0
  2066.         dc.l    0
  2067. Belmart
  2068.         dc.w    NW!MW
  2069.         dc.l    WA!WD
  2070.         dc.b    8
  2071.         dc.b    0,0,0,0,0
  2072.         dc.b    0,0,0,0,0
  2073.         dc.b    0,0,0,0,0
  2074.         dc.b    0,0,0,0,0
  2075.         dc.b    0,0,4,0,0
  2076.         dc.b    0,2,0,0,0
  2077.         dc.b    0
  2078.         dc.w    0
  2079.         dc.l    0
  2080.         dc.l    0
  2081. Carlog
  2082.         dc.w    NU!SF
  2083.         dc.l    BR!KS!SE!FA
  2084.         dc.b    5
  2085.         dc.b    6,0,2,0,0
  2086.         dc.b    0,0,0,0,0
  2087.         dc.b    0,0,0,0,0
  2088.         dc.b    6,0,0,4,0
  2089.         dc.b    0,0,0,0,0
  2090.         dc.b    0,0,0,0,0
  2091.         dc.b    0
  2092.         dc.w    0
  2093.         dc.l    0
  2094.         dc.l    0
  2095. Chonchinis
  2096.         dc.w    MS!MW!MO!WR
  2097.         dc.l    ST!HO!WD
  2098.         dc.b    6
  2099.         dc.b    0,0,0,0,0
  2100.         dc.b    0,0,0,0,2
  2101.         dc.b    0,0,0,0,0
  2102.         dc.b    0,0,0,0,0
  2103.         dc.b    8,0,0,0,0
  2104.         dc.b    0,4,0,0,0
  2105.         dc.b    0
  2106.         dc.w    0
  2107.         dc.l    0
  2108.         dc.l    0
  2109. Disdychonda
  2110.         dc.w    MA!SW!SF
  2111.         dc.l    RW!WA
  2112.         dc.b    5
  2113.         dc.b    0,0,0,0,0
  2114.         dc.b    0,0,0,0,0
  2115.         dc.b    0,0,0,0,0
  2116.         dc.b    0,0,2,0,0
  2117.         dc.b    0,0,1,0,0
  2118.         dc.b    0,0,0,0,0
  2119.         dc.b    0
  2120.         dc.w    0
  2121.         dc.l    0
  2122.         dc.l    0
  2123. Donf
  2124.         dc.w    NU!SF
  2125.         dc.l    SU!FA
  2126.         dc.b    9
  2127.         dc.b    0,0,1,0,0
  2128.         dc.b    0,0,0,0,0
  2129.         dc.b    0,0,0,0,0
  2130.         dc.b    0,0,0,0,3
  2131.         dc.b    0,0,0,0,0
  2132.         dc.b    0,0,0,0,0
  2133.         dc.b    0
  2134.         dc.w    0
  2135.         dc.l    0
  2136.         dc.l    0
  2137. Egelschreck
  2138.         dc.w    SF!MW!NU
  2139.         dc.l    SU!WS!FA!WD
  2140.         dc.b    7
  2141.         dc.b    0,0,6,0,0
  2142.         dc.b    0,0,0,0,0
  2143.         dc.b    0,0,0,0,0
  2144.         dc.b    0,0,0,0,12
  2145.         dc.b    0,0,0,0,0
  2146.         dc.b    0,4,0,8,0
  2147.         dc.b    0
  2148.         dc.w    0
  2149.         dc.l    0
  2150.         dc.l    0
  2151. Eitriger
  2152.         dc.w    GE!SF!SW!WR!MA!MO!MW!MS!NH!NS!NW!NU!TE
  2153.         dc.l    SU!WG!FA
  2154.         dc.b    4
  2155.         dc.b    0,0,4,0,0
  2156.         dc.b    0,0,0,0,0
  2157.         dc.b    0,0,0,0,0
  2158.         dc.b    0,0,0,0,5
  2159.         dc.b    0,0,0,4,0
  2160.         dc.b    0,0,0,0,0
  2161.         dc.b    0
  2162.         dc.w    0
  2163.         dc.l    0
  2164.         dc.l    0
  2165. Finage
  2166.         dc.w    SW
  2167.         dc.l    WA!RW!GR
  2168.         dc.b    5
  2169.         dc.b    0,0,0,0,2
  2170.         dc.b    0,0,0,0,0
  2171.         dc.b    0,0,0,0,0
  2172.         dc.b    0,0,3,0,0
  2173.         dc.b    0,0,4,0,0
  2174.         dc.b    0,0,0,0,0
  2175.         dc.b    0
  2176.         dc.w    0
  2177.         dc.l    0
  2178.         dc.l    0
  2179. Gruene
  2180.         dc.w    NH!NU
  2181.         dc.l    SU!FA
  2182.         dc.b    6
  2183.         dc.b    0,0,1,0,0
  2184.         dc.b    0,0,0,0,0
  2185.         dc.b    0,0,0,0,0
  2186.         dc.b    0,0,0,0,8
  2187.         dc.b    0,0,0,0,0
  2188.         dc.b    0,0,0,0,0
  2189.         dc.b    0
  2190.         dc.w    0
  2191.         dc.l    0
  2192.         dc.l    0
  2193. Gulmond
  2194.         dc.w    MW!MS!NH!NW!NS
  2195.         dc.l    ST!WA!HO
  2196.         dc.b    8
  2197.         dc.b    0,0,0,0,0
  2198.         dc.b    0,0,0,0,1
  2199.         dc.b    0,0,0,0,0
  2200.         dc.b    0,0,0,0,0
  2201.         dc.b    4,0,3,0,0
  2202.         dc.b    0,0,0,0,0
  2203.         dc.b    0
  2204.         dc.w    0
  2205.         dc.l    0
  2206.         dc.l    0
  2207. Hesindigo
  2208.         dc.w    SW
  2209.         dc.l    RW!KS
  2210.         dc.b    7
  2211.         dc.b    0,0,0,0,0
  2212.         dc.b    0,0,0,0,0
  2213.         dc.b    0,0,0,0,0
  2214.         dc.b    3,0,5,0,0
  2215.         dc.b    0,0,0,0,0
  2216.         dc.b    0,0,0,0,0
  2217.         dc.b    0
  2218.         dc.w    0
  2219.         dc.l    0
  2220.         dc.l    0
  2221. Hiradwurz
  2222.         dc.w    WR!MO!MS
  2223.         dc.l    ST
  2224.         dc.b    12
  2225.         dc.b    0,0,0,0,0
  2226.         dc.b    0,0,0,0,0
  2227.         dc.b    0,0,0,0,0
  2228.         dc.b    0,0,0,0,0
  2229.         dc.b    3,0,0,0,0
  2230.         dc.b    0,0,0,0,0
  2231.         dc.b    0
  2232.         dc.w    0
  2233.         dc.l    0
  2234.         dc.l    0
  2235. Hoellenkraut
  2236.         dc.w    SW
  2237.         dc.l    RW!WA!WD
  2238.         dc.b    10
  2239.         dc.b    0,0,0,0,0
  2240.         dc.b    0,0,0,0,0
  2241.         dc.b    0,0,0,0,0
  2242.         dc.b    0,0,6,0,0
  2243.         dc.b    0,0,4,0,0
  2244.         dc.b    0,0,1,0,0
  2245.         dc.b    0
  2246.         dc.w    0
  2247.         dc.l    0
  2248.         dc.l    0
  2249. Horusche
  2250.         dc.w    MA
  2251.         dc.l    WF
  2252.         dc.b    18
  2253.         dc.b    0,0,0,0,0
  2254.         dc.b    0,0,0,0,0
  2255.         dc.b    0,0,0,0,0
  2256.         dc.b    0,0,0,0,0
  2257.         dc.b    0,0,0,0,2
  2258.         dc.b    0,0,0,0,0
  2259.         dc.b    0
  2260.         dc.w    0
  2261.         dc.l    0
  2262.         dc.l    0
  2263. Ilmenblatt
  2264.         dc.w    MS!MW!SW
  2265.         dc.l    WL!WI!GH
  2266.         dc.b    5
  2267.         dc.b    0,0,0,0,0
  2268.         dc.b    0,0,2,0,0
  2269.         dc.b    0,0,0,0,0
  2270.         dc.b    0,0,0,0,0
  2271.         dc.b    0,0,0,0,0
  2272.         dc.b    7,0,4,0,0
  2273.         dc.b    0
  2274.         dc.w    0
  2275.         dc.l    0
  2276.         dc.l    0
  2277. Joruga
  2278.         dc.w    GE!MW!MS!NW!NS
  2279.         dc.l    WA!WI!GB
  2280.         dc.b    10
  2281.         dc.b    0,0,0,0,0
  2282.         dc.b    0,1,0,0,0
  2283.         dc.b    0,0,0,0,0
  2284.         dc.b    0,0,0,0,0
  2285.         dc.b    0,0,5,0,0
  2286.         dc.b    0,0,3,0,0
  2287.         dc.b    0
  2288.         dc.w    0
  2289.         dc.l    0
  2290.         dc.l    0
  2291. Kairan
  2292.         dc.w    MS
  2293.         dc.l    SE
  2294.         dc.b    18
  2295.         dc.b    0,0,0,0,0
  2296.         dc.b    0,0,0,0,0
  2297.         dc.b    0,0,0,0,0
  2298.         dc.b    0,0,0,1,0
  2299.         dc.b    0,0,0,0,0
  2300.         dc.b    0,0,0,0,0
  2301.         dc.b    0
  2302.         dc.w    0
  2303.         dc.l    0
  2304.         dc.l    0
  2305. Kajubo
  2306.         dc.w    SW
  2307.         dc.l    WD!KU
  2308.         dc.b    21
  2309.         dc.b    0,0,0,0,0
  2310.         dc.b    0,0,0,0,0
  2311.         dc.b    0,0,0,0,1
  2312.         dc.b    0,0,0,0,0
  2313.         dc.b    0,0,0,0,0
  2314.         dc.b    0,1,0,0,0
  2315.         dc.b    0
  2316.         dc.w    0
  2317.         dc.l    0
  2318.         dc.l    0
  2319. Kukris
  2320.         dc.w    SW!SF
  2321.         dc.l    RW!GH!FU
  2322.         dc.b    12
  2323.         dc.b    0,0,0,1,0
  2324.         dc.b    0,0,1,0,0
  2325.         dc.b    0,0,0,0,0
  2326.         dc.b    0,0,3,0,0
  2327.         dc.b    0,0,0,0,0
  2328.         dc.b    0,0,0,0,0
  2329.         dc.b    0
  2330.         dc.w    0
  2331.         dc.l    0
  2332.         dc.l    0
  2333. Lotos
  2334.         dc.w    SF!SW
  2335.         dc.l    TI!SE
  2336.         dc.b    5
  2337.         dc.b    0,0,0,0,0
  2338.         dc.b    0,0,0,0,0
  2339.         dc.b    0,0,0,0,0
  2340.         dc.b    0,0,0,1,0
  2341.         dc.b    0,2,0,0,0
  2342.         dc.b    0,0,0,0,0
  2343.         dc.b    0
  2344.         dc.w    0
  2345.         dc.l    0
  2346.         dc.l    0
  2347. Lulanie
  2348.         dc.w    MW
  2349.         dc.l    WA!WD
  2350.         dc.b    18
  2351.         dc.b    0,0,0,0,0
  2352.         dc.b    0,0,0,0,0
  2353.         dc.b    0,0,0,0,0
  2354.         dc.b    0,0,0,0,0
  2355.         dc.b    0,0,4,0,0
  2356.         dc.b    0,2,0,0,0
  2357.         dc.b    0
  2358.         dc.w    0
  2359.         dc.l    0
  2360.         dc.l    0
  2361. Menchal
  2362.         dc.w    WR!WU!MO
  2363.         dc.l    WT
  2364.         dc.b    10
  2365.         dc.b    0,0,0,0,0
  2366.         dc.b    0,0,0,0,0
  2367.         dc.b    0,0,0,0,0
  2368.         dc.b    0,0,0,0,0
  2369.         dc.b    0,0,0,0,0
  2370.         dc.b    0,0,0,0,2
  2371.         dc.b    0
  2372.         dc.w    0
  2373.         dc.l    0
  2374.         dc.l    0
  2375. Messergras
  2376.         dc.w    WR!MO!NH!NS!MS
  2377.         dc.l    ST!HO!WT
  2378.         dc.b    6
  2379.         dc.b    0,0,0,0,0
  2380.         dc.b    0,0,0,0,2
  2381.         dc.b    0,0,0,0,0
  2382.         dc.b    0,0,0,0,0
  2383.         dc.b    3,0,0,0,0
  2384.         dc.b    0,0,0,0,1
  2385.         dc.b    0
  2386.         dc.w    0
  2387.         dc.l    0
  2388.         dc.l    0
  2389. Mibelrohr
  2390.         dc.w    NU
  2391.         dc.l    SE!FA!SU
  2392.         dc.b    10
  2393.         dc.b    0,0,5,0,0
  2394.         dc.b    0,0,0,0,0
  2395.         dc.b    0,0,0,0,0
  2396.         dc.b    0,0,0,6,2
  2397.         dc.b    0,0,0,0,0
  2398.         dc.b    0,0,0,0,0
  2399.         dc.b    0
  2400.         dc.w    0
  2401.         dc.l    0
  2402.         dc.l    0
  2403. Mirbelstein
  2404.         dc.w    MW!MS
  2405.         dc.l    WA!GR!HO
  2406.         dc.b    7
  2407.         dc.b    0,0,0,0,4
  2408.         dc.b    0,0,0,0,2
  2409.         dc.b    0,0,0,0,0
  2410.         dc.b    0,0,0,0,0
  2411.         dc.b    0,0,5,0,0
  2412.         dc.b    0,0,0,0,0
  2413.         dc.b    0
  2414.         dc.w    0
  2415.         dc.l    0
  2416.         dc.l    0
  2417. Naftanstaude
  2418.         dc.w    NS!NH!MS!MO!WR
  2419.         dc.l    GR!ST!WD
  2420.         dc.b    8
  2421.         dc.b    0,0,0,0,2
  2422.         dc.b    0,0,0,0,0
  2423.         dc.b    0,0,0,0,0
  2424.         dc.b    0,0,0,0,0
  2425.         dc.b    1,0,0,0,0
  2426.         dc.b    0,1,0,0,0
  2427.         dc.b    0
  2428.         dc.w    0
  2429.         dc.l    0
  2430.         dc.l    0
  2431. Nothilf
  2432.         dc.w    GE!NW
  2433.         dc.l    WA!GB
  2434.         dc.b    18
  2435.         dc.b    0,0,0,0,0
  2436.         dc.b    0,1,0,0,0
  2437.         dc.b    0,0,0,0,0
  2438.         dc.b    0,0,0,0,0
  2439.         dc.b    0,0,2,0,0
  2440.         dc.b    0,0,0,0,0
  2441.         dc.b    0
  2442.         dc.w    0
  2443.         dc.l    0
  2444.         dc.l    0
  2445. Olginwurz
  2446.         dc.w    MO!GE
  2447.         dc.l    HO!GB!WA
  2448.         dc.b    25
  2449.         dc.b    0,0,0,0,0
  2450.         dc.b    0,1,0,0,2
  2451.         dc.b    0,0,0,0,0
  2452.         dc.b    0,0,0,0,0
  2453.         dc.b    0,0,1,0,0
  2454.         dc.b    0,0,0,0,0
  2455.         dc.b    0
  2456.         dc.w    0
  2457.         dc.l    0
  2458.         dc.l    0
  2459. Orazal
  2460.         dc.w    SW
  2461.         dc.l    RW!WA
  2462.         dc.b    12
  2463.         dc.b    0,0,0,0,0
  2464.         dc.b    0,0,0,0,0
  2465.         dc.b    0,0,0,0,0
  2466.         dc.b    0,0,3,0,0
  2467.         dc.b    0,0,1,0,0
  2468.         dc.b    0,0,0,0,0
  2469.         dc.b    0
  2470.         dc.w    0
  2471.         dc.l    0
  2472.         dc.l    0
  2473. Orkland
  2474.         dc.w    NS!NW!NH
  2475.         dc.l    HS!WA!ST
  2476.         dc.b    6
  2477.         dc.b    0,0,0,0,0
  2478.         dc.b    0,0,0,0,0
  2479.         dc.b    3,0,0,0,0
  2480.         dc.b    0,0,0,0,0
  2481.         dc.b    1,0,1,0,0
  2482.         dc.b    0,0,0,0,0
  2483.         dc.b    0
  2484.         dc.w    0
  2485.         dc.l    0
  2486.         dc.l    0
  2487. Pestsporenpilz
  2488.         dc.w    NW!NU
  2489.         dc.l    SU!WA!WS
  2490.         dc.b    18
  2491.         dc.b    0,0,0,0,0
  2492.         dc.b    0,0,0,0,0
  2493.         dc.b    0,0,0,0,0
  2494.         dc.b    0,0,0,0,3
  2495.         dc.b    0,0,2,0,0
  2496.         dc.b    0,0,0,2,0
  2497.         dc.b    0
  2498.         dc.w    0
  2499.         dc.l    0
  2500.         dc.l    0
  2501. Pfeifenkraut
  2502.         dc.w    GE!SW!WR!MA!SF!MO!MW!MS
  2503.         dc.l    GH!WL!ST
  2504.         dc.b    5
  2505.         dc.b    0,0,0,0,0
  2506.         dc.b    0,0,6,0,0
  2507.         dc.b    0,0,0,0,0
  2508.         dc.b    0,0,0,0,0
  2509.         dc.b    1,0,0,0,0
  2510.         dc.b    4,0,0,0,0
  2511.         dc.b    0
  2512.         dc.w    0
  2513.         dc.l    0
  2514.         dc.l    0
  2515. Phosphorpilz
  2516.         dc.w    GE
  2517.         dc.l    HF!HT
  2518.         dc.b    18
  2519.         dc.b    0,0,0,0,0
  2520.         dc.b    0,0,0,0,0
  2521.         dc.b    0,0,3,1,0
  2522.         dc.b    0,0,0,0,0
  2523.         dc.b    0,0,0,0,0
  2524.         dc.b    0,0,0,0,0
  2525.         dc.b    0
  2526.         dc.w    0
  2527.         dc.l    0
  2528.         dc.l    0
  2529. Quinja
  2530.         dc.w    SW
  2531.         dc.l    RW!WA!WD
  2532.         dc.b    10
  2533.         dc.b    0,0,0,0,0
  2534.         dc.b    0,0,0,0,0
  2535.         dc.b    0,0,0,0,0
  2536.         dc.b    0,0,8,0,0
  2537.         dc.b    0,0,5,0,0
  2538.         dc.b    0,4,0,0,0
  2539.         dc.b    0
  2540.         dc.w    0
  2541.         dc.l    0
  2542.         dc.l    0
  2543. Rauschgurke
  2544.         dc.w    MA
  2545.         dc.l    WA!WD
  2546.         dc.b    7
  2547.         dc.b    0,0,0,0,0
  2548.         dc.b    0,0,0,0,0
  2549.         dc.b    0,0,0,0,0
  2550.         dc.b    0,0,0,0,0
  2551.         dc.b    0,0,3,0,0
  2552.         dc.b    0,2,0,0,0
  2553.         dc.b    0
  2554.         dc.w    0
  2555.         dc.l    0
  2556.         dc.l    0
  2557. Roter
  2558.         dc.w    MW!NW
  2559.         dc.l    WD!FU
  2560.         dc.b    25
  2561.         dc.b    0,0,0,1,0
  2562.         dc.b    0,0,0,0,0
  2563.         dc.b    0,0,0,0,0
  2564.         dc.b    0,0,0,0,0
  2565.         dc.b    0,0,0,0,0
  2566.         dc.b    0,1,0,0,0
  2567.         dc.b    0
  2568.         dc.w    0
  2569.         dc.l    0
  2570.         dc.l    0
  2571. Rote
  2572.         dc.w    SF!SW
  2573.         dc.l    KS!WA!SU
  2574.         dc.b    10
  2575.         dc.b    0,0,0,0,0
  2576.         dc.b    0,0,0,0,0
  2577.         dc.b    0,0,0,0,0
  2578.         dc.b    4,0,0,0,1
  2579.         dc.b    0,0,2,0,0
  2580.         dc.b    0,0,0,0,0
  2581.         dc.b    0
  2582.         dc.w    0
  2583.         dc.l    0
  2584.         dc.l    0
  2585. Sansaro
  2586.         dc.w    SF
  2587.         dc.l    KU!OM
  2588.         dc.b    15
  2589.         dc.b    0,0,0,0,0
  2590.         dc.b    0,0,0,0,0
  2591.         dc.b    0,0,0,0,10
  2592.         dc.b    0,2,0,0,0
  2593.         dc.b    0,0,0,0,0
  2594.         dc.b    0,0,0,0,0
  2595.         dc.b    0
  2596.         dc.w    0
  2597.         dc.l    0
  2598.         dc.l    0
  2599. Schleichender
  2600.         dc.w    SF
  2601.         dc.l    RW!WA!SU
  2602.         dc.b    18
  2603.         dc.b    0,0,0,0,0
  2604.         dc.b    0,0,0,0,0
  2605.         dc.b    0,0,0,0,0
  2606.         dc.b    0,0,5,0,2
  2607.         dc.b    0,0,2,0,0
  2608.         dc.b    0,0,0,0,0
  2609.         dc.b    0
  2610.         dc.w    0
  2611.         dc.l    0
  2612.         dc.l    0
  2613. Schleimiger
  2614.         dc.w    NW!MW
  2615.         dc.l    WA!WD
  2616.         dc.b    12
  2617.         dc.b    0,0,0,0,0
  2618.         dc.b    0,0,0,0,0
  2619.         dc.b    0,0,0,0,0
  2620.         dc.b    0,0,0,0,0
  2621.         dc.b    0,0,3,0,0
  2622.         dc.b    0,1,0,0,0
  2623.         dc.b    0
  2624.         dc.w    0
  2625.         dc.l    0
  2626.         dc.l    0
  2627. Schlinggras
  2628.         dc.w    NU
  2629.         dc.l    SU!HM
  2630.         dc.b    12
  2631.         dc.b    0,0,0,0,0
  2632.         dc.b    0,0,0,0,0
  2633.         dc.b    0,1,0,0,0
  2634.         dc.b    0,0,0,0,4
  2635.         dc.b    0,0,0,0,0
  2636.         dc.b    0,0,0,0,0
  2637.         dc.b    0
  2638.         dc.w    0
  2639.         dc.l    0
  2640.         dc.l    0
  2641. Shurinknolle
  2642.         dc.w    NS!NW!NH!MS!MW!MO!MA!WR!SW
  2643.         dc.l    ST!GR!WA
  2644.         dc.b    8
  2645.         dc.b    0,0,0,0,3
  2646.         dc.b    0,0,0,0,0
  2647.         dc.b    0,0,0,0,0
  2648.         dc.b    0,0,0,0,0
  2649.         dc.b    4,0,2,0,0
  2650.         dc.b    0,0,0,0,0
  2651.         dc.b    0
  2652.         dc.w    0
  2653.         dc.l    0
  2654.         dc.l    0
  2655. Suesser
  2656.         dc.w    SW!WR!MO
  2657.         dc.l    RW!WA
  2658.         dc.b    4
  2659.         dc.b    0,0,0,0,0
  2660.         dc.b    0,0,0,0,0
  2661.         dc.b    0,0,0,0,0
  2662.         dc.b    0,0,3,0,0
  2663.         dc.b    0,0,1,0,0
  2664.         dc.b    0,0,0,0,0
  2665.         dc.b    0
  2666.         dc.w    0
  2667.         dc.l    0
  2668.         dc.l    0
  2669. Talaschin
  2670.         dc.w    TE!WU!GE
  2671.         dc.l    GB!EI!WT
  2672.         dc.b    15
  2673.         dc.b    0,4,0,0,0
  2674.         dc.b    0,6,0,0,0
  2675.         dc.b    0,0,0,0,0
  2676.         dc.b    0,0,0,0,0
  2677.         dc.b    0,0,0,0,0
  2678.         dc.b    0,0,0,0,1
  2679.         dc.b    0
  2680.         dc.w    0
  2681.         dc.l    0
  2682.         dc.l    0
  2683. Tarnele
  2684.         dc.w    GE!WR!MA!MO!MS!NU!NH!NW!NS
  2685.         dc.l    WI!FA!WA!SU!HO
  2686.         dc.b    4
  2687.         dc.b    0,0,8,0,0
  2688.         dc.b    0,0,0,0,2
  2689.         dc.b    0,0,0,0,0
  2690.         dc.b    0,0,0,0,6
  2691.         dc.b    0,0,6,0,0
  2692.         dc.b    0,0,12,0,0
  2693.         dc.b    0
  2694.         dc.w    0
  2695.         dc.l    0
  2696.         dc.l    0
  2697. Tee
  2698.         dc.w    MA!WR!SW
  2699.         dc.l    HO!ST
  2700.         dc.b    7
  2701.         dc.b    0,0,0,0,0
  2702.         dc.b    0,0,0,0,8
  2703.         dc.b    0,0,0,0,0
  2704.         dc.b    0,0,0,0,0
  2705.         dc.b    2,0,0,0,0
  2706.         dc.b    0,0,0,0,0
  2707.         dc.b    0
  2708.         dc.w    0
  2709.         dc.l    0
  2710.         dc.l    0
  2711. Thonnys
  2712.         dc.w    NW!NS
  2713.         dc.l    ST!WA
  2714.         dc.b    18
  2715.         dc.b    0,0,0,0,0
  2716.         dc.b    0,0,0,0,0
  2717.         dc.b    0,0,0,0,0
  2718.         dc.b    0,0,0,0,0
  2719.         dc.b    2,0,1,0,0
  2720.         dc.b    0,0,0,0,0
  2721.         dc.b    0
  2722.         dc.w    0
  2723.         dc.l    0
  2724.         dc.l    0
  2725. Traschbart
  2726.         dc.w    NW!NU!MW
  2727.         dc.l    WA!SU
  2728.         dc.b    8
  2729.         dc.b    0,0,0,0,0
  2730.         dc.b    0,0,0,0,0
  2731.         dc.b    0,0,0,0,0
  2732.         dc.b    0,0,0,0,3
  2733.         dc.b    0,0,8,0,0
  2734.         dc.b    0,0,0,0,0
  2735.         dc.b    0
  2736.         dc.w    0
  2737.         dc.l    0
  2738.         dc.l    0
  2739. Ulmenwuerger
  2740.         dc.w    MW!NW
  2741.         dc.l    WA!WD
  2742.         dc.b    5
  2743.         dc.b    0,0,0,0,0
  2744.         dc.b    0,0,0,0,0
  2745.         dc.b    0,0,0,0,0
  2746.         dc.b    0,0,0,0,0
  2747.         dc.b    0,0,5,0,0
  2748.         dc.b    0,3,0,0,0
  2749.         dc.b    0
  2750.         dc.w    0
  2751.         dc.l    0
  2752.         dc.l    0
  2753. Vierblatt
  2754.         dc.w    GE!MS!NU!NS!NH!NW!TE!MW
  2755.         dc.l    BR!EI!FA!FU!GR!GF!GB!GH!GO!HO!HS!HM!HF!KU!KS!OM!RW!SE!SU!ST!TI!WA!WG!WF!WL!WD!WI!WS
  2756.         dc.b    8
  2757.         dc.b    1,1,1,1,6
  2758.         dc.b    1,1,1,1,1
  2759.         dc.b    1,1,1,1,1
  2760.         dc.b    1,1,1,1,1
  2761.         dc.b    1,1,10,1,1
  2762.         dc.b    1,12,1,1,1
  2763.         dc.b    0
  2764.         dc.w    0
  2765.         dc.l    0
  2766.         dc.l    0
  2767. Vragieswurzel
  2768.         dc.w    SW
  2769.         dc.l    RW!GH!WA!HO
  2770.         dc.b    21
  2771.         dc.b    0,0,0,0,0
  2772.         dc.b    0,0,4,0,1
  2773.         dc.b    0,0,0,0,0
  2774.         dc.b    0,0,5,0,0
  2775.         dc.b    0,0,4,0,0
  2776.         dc.b    0,0,0,0,0
  2777.         dc.b    0
  2778.         dc.w    0
  2779.         dc.l    0
  2780.         dc.l    0
  2781. Wasserrausch
  2782.         dc.w    NW!NU
  2783.         dc.l    SE!TI
  2784.         dc.b    3
  2785.         dc.b    0,0,0,0,0
  2786.         dc.b    0,0,0,0,0
  2787.         dc.b    0,0,0,0,0
  2788.         dc.b    0,0,0,3,0
  2789.         dc.b    0,2,0,0,0
  2790.         dc.b    0,0,0,0,0
  2791.         dc.b    0
  2792.         dc.w    0
  2793.         dc.l    0
  2794.         dc.l    0
  2795. Winselgras
  2796.         dc.w    MO
  2797.         dc.l    ST!GR
  2798.         dc.b    12
  2799.         dc.b    0,0,0,0,6
  2800.         dc.b    0,0,0,0,0
  2801.         dc.b    0,0,0,0,0
  2802.         dc.b    0,0,0,0,0
  2803.         dc.b    8,0,0,0,0
  2804.         dc.b    0,0,0,0,0
  2805.         dc.b    0
  2806.         dc.w    0
  2807.         dc.l    0
  2808.         dc.l    0
  2809. Wirselkraut
  2810.         dc.w    TE!NS!NW!NH!NU!MS!MW!MO!MA!SW!SF!GE!WR
  2811.         dc.l    ST!WI!GR
  2812.         dc.b    4
  2813.         dc.b    0,0,0,0,7
  2814.         dc.b    0,0,0,0,0
  2815.         dc.b    0,0,0,0,0
  2816.         dc.b    0,0,0,0,0
  2817.         dc.b    8,0,0,0,0
  2818.         dc.b    0,0,0,5,0
  2819.         dc.b    0
  2820.         dc.w    0
  2821.         dc.l    0
  2822.         dc.l    0
  2823. Wuergedattel
  2824.         dc.w    SW
  2825.         dc.l    RW!WD
  2826.         dc.b    15
  2827.         dc.b    0,0,0,0,0
  2828.         dc.b    0,0,0,0,0
  2829.         dc.b    0,0,0,0,0
  2830.         dc.b    0,0,2,0,0
  2831.         dc.b    0,0,0,0,0
  2832.         dc.b    0,1,0,0,0
  2833.         dc.b    0
  2834.         dc.w    0
  2835.         dc.l    0
  2836.         dc.l    0
  2837. Xordai
  2838.         dc.w    MA
  2839.         dc.l    RW
  2840.         dc.b    21
  2841.         dc.b    0,0,0,0,0
  2842.         dc.b    0,0,0,0,0
  2843.         dc.b    0,0,0,0,0
  2844.         dc.b    0,0,1,0,0
  2845.         dc.b    0,0,0,0,0
  2846.         dc.b    0,0,0,0,0
  2847.         dc.b    0
  2848.         dc.w    0
  2849.         dc.l    0
  2850.         dc.l    0
  2851. Yagan
  2852.         dc.w    MA
  2853.         dc.l    WA!HO
  2854.         dc.b    6
  2855.         dc.b    0,0,0,0,0
  2856.         dc.b    0,0,0,0,2
  2857.         dc.b    0,0,0,0,0
  2858.         dc.b    0,0,0,0,0
  2859.         dc.b    0,0,6,0,0
  2860.         dc.b    0,0,0,0,0
  2861.         dc.b    0
  2862.         dc.w    0
  2863.         dc.l    0
  2864.         dc.l    0
  2865. Zunderschwamm
  2866.         dc.w    SW!MW!NW
  2867.         dc.l    WA!RW
  2868.         dc.b    4
  2869.         dc.b    0,0,0,0,0
  2870.         dc.b    0,0,0,0,0
  2871.         dc.b    0,0,0,0,0
  2872.         dc.b    0,0,6,0,0
  2873.         dc.b    0,0,8,0,0
  2874.         dc.b    0,0,0,0,0
  2875.         dc.b    0
  2876.         dc.w    0
  2877.         dc.l    0
  2878.         dc.l    0
  2879. Zwoelfblatt
  2880.         dc.w    NS!NH!NW!NU!MS!MW!MO!SW!GE!SF
  2881.         dc.l    WA!ST!GR!HO
  2882.         dc.b    5
  2883.         dc.b    0,0,0,0,4
  2884.         dc.b    0,0,0,0,2
  2885.         dc.b    0,0,0,0,0
  2886.         dc.b    0,0,0,0,0
  2887.         dc.b    5,0,7,0,0
  2888.         dc.b    0,0,0,0,0
  2889.         dc.b    0
  2890.         dc.w    0
  2891.         dc.l    0
  2892.         dc.l    0
  2893. intname         INTUITIONNAME
  2894. dosname         DOSNAME
  2895. gfxname         GRAPHICSNAME
  2896. gadname         GADTOOLSNAME
  2897. ;;
  2898. ** BYTE Daten
  2899. ParaTemplate    dc.b    'KL/N/K,IN/N/K,FF/N/K,TAW/N/K,ZEIT/N/K',0
  2900. EnReqTitle      dc.b    'Beenden ?',0
  2901. EnReqTxt        dc.b    'Wollen Sie das Programm wirklich beenden ?',0
  2902. EnGadTxt        dc.b    'Ja|Nein',0
  2903. ErrReqTit       dc.b    'Fehler !',0
  2904. FFFeReqTxt      dc.b    'Falscher Wert für : Fingerfertigkeit',10
  2905.                 dc.b    '         Bitte nur 8 bis 21',0
  2906. KLFeReqTxt      dc.b    'Falscher Wert für : Klugheit',10
  2907.                 dc.b    '     Bitte nur 8 bis 21',0
  2908. INFeReqTxt      dc.b    'Falscher Wert für : Intuition',10
  2909.                 dc.b    '     Bitte nur 8 bis 21',0
  2910. TAWFeReqTxt     dc.b    'Falscher Wert für : Talent Wert',10
  2911.                 dc.b    '      Bitte nur -9 bis 18',0
  2912. StundenFeReqTxt dc.b    'Falscher Wert für : Stunden',10
  2913.                 dc.b    '     Bitte nur 1 bis 8',0
  2914. FeGadTxt        dc.b    'Ok',0
  2915. MisReqTxt       dc.b    'Keine Kräuter gefunden',0
  2916. FloReqTxt       dc.b    'Bitte mind. eine Flora aktivieren',0
  2917. WinErrReqTxt    dc.b    'Konnte Kräuter Window nicht öffnen',0
  2918. SchReqTit       dc.b    'Schade',0
  2919. UniGadText      dc.b    4,'_KL',0,4,'_IN',0,4,'_FF',0,5,'_TAW',0,0,'St_unden',0
  2920. SuchenGText     dc.b    '_Suchen',0
  2921. SpeSucGText     dc.b    'S_pezial Suche',0
  2922. KraSpeGText     dc.b    'Wähle Kräuter',0
  2923. OKGText         dc.b    '_OK',0
  2924. VerwerfenGText  dc.b    '_Verwerfen',0
  2925. LoesGText       dc.b    '_Löschen',0
  2926. KraWinTitle     dc.b    'Wähle bestimmte Kräuter aus',0
  2927. topazFName8     dc.b    'topaz.font',0
  2928. GGebietNamen
  2929.         dc.b    'Gebirge',0
  2930.         dc.b    'Maraskan',0
  2931.         dc.b    'Mittell. Hochland',0
  2932.         dc.b    'Mittell. Steppen',0
  2933.         dc.b    'Mittell. Wälder',0
  2934.         dc.b    'Nördl. Hochland',0
  2935.         dc.b    'Nördl. Steppen',0
  2936.         dc.b    'Nördl. Sümpfe',0
  2937.         dc.b    'Nördl. Wälder',0
  2938.         dc.b    'Südl. Regenwälder',0
  2939.         dc.b    'Südl. Sümpfe',0
  2940.         dc.b    'Tundra & Eisgeb.',0
  2941.         dc.b    'Wüste',0
  2942.         dc.b    'Wüstenrandgebiete',0
  2943. GFloraNamen
  2944.         dc.b    '  Brackwassers.',0
  2945.         dc.b    '  Eisgebiete',0
  2946.         dc.b    '  Flußauen',0
  2947.         dc.b    '  Flußufer',0
  2948.         dc.b    '  Grasland',0
  2949.         dc.b    '  Grasland feucht',0
  2950.         dc.b    '  Gebirge',0
  2951.         dc.b    '  Gebirgshänge',0
  2952.         dc.b    '  Gebirgshöhen',0
  2953.         dc.b    '  Hochland',0
  2954.         dc.b    '  Hochland schat.',0
  2955.         dc.b    '  Hochmoore',0
  2956.         dc.b    '  Höhlen feucht',0
  2957.         dc.b    '  Höhlen trocken',0
  2958.         dc.b    '  Küste',0
  2959.         dc.b    '  Küstensümpfe',0
  2960.         dc.b    '  Offenes Meer',0
  2961.         dc.b    '  Regenwald',0
  2962.         dc.b    '  Seeufer',0
  2963.         dc.b    '  Sumpf',0
  2964.         dc.b    '  Steppe',0
  2965.         dc.b    '  Teiche',0
  2966.         dc.b    '  Wald',0
  2967.         dc.b    '  Waldgebiete',0
  2968.         dc.b    '  Waldgebiete f.',0
  2969.         dc.b    '  Waldlichtungen',0
  2970.         dc.b    '  Waldränder',0
  2971.         dc.b    '  Wiesen',0
  2972.         dc.b    '  Wiesen feucht',0
  2973.         dc.b    '  Wüste',0
  2974. DSAMName0       dc.b    'Projekt',0
  2975. DSAMName1       dc.b    'Über',0
  2976. DSAMComm1       dc.b    'A',0
  2977. DSAMName2       dc.b    'Beenden',0
  2978. DSAMComm2       dc.b    'Q',0
  2979. WinTitle        dc.b    'BangerDSA-KS 24-Dez-95 © by Andre´ Trettin',0
  2980. KrautWinTitle   dc.b    'Gefundene Kräuter',0
  2981. DSAIText0       dc.b    'DSA Kräuter Suche',0
  2982. DSAIText1       dc.b    'by Andre´ Trettin',0
  2983. DSAIText2       dc.b    'Gebiet',0
  2984. DSAIText3       dc.b    'Flora',0
  2985. AbReqTi         dc.b    'Über das Programm',0
  2986.                 dc.b    'SVER: '
  2987. AbReqTxt        dc.b    'BangerDSA-KS 1.32 (24-Dez-95)',10
  2988.                 dc.b    '     Autor: Andre´ Trettin',10
  2989.                 dc.b    '       Texte: © 1989 by',10
  2990.                 dc.b    'Schmidt Spiel & Freizeit GmbH. Eching',10
  2991.                 dc.b    'Mit besten Dank an:',10
  2992.                 dc.b    '  Michael Belter   : Für seine Ideen',10
  2993.                 dc.b    '  Sir Dazed        : Fürs Testen und Prüfen',10
  2994.                 dc.b    '  Alan Wendland    : Tips zur Oberfläche',10,0
  2995. AbGadTxt        dc.b    'Alles klar',0
  2996. ;;
  2997. ** Kräuter Namen Info
  2998. NAlraune        dc.b    '  Alraune',0
  2999. NArganwurzel    dc.b    '  Arganwurzel',0
  3000. NAtanax         dc.b    '  Atanax',0
  3001. NAtmon          dc.b    '  Atmon',0
  3002. NBasilamine     dc.b    '  Basilamine',0
  3003. NBelmart        dc.b    '  Belmart',0
  3004. NCarlog         dc.b    '  Carlog',0
  3005. NChonchinis     dc.b    '  Chonchinis',0
  3006. NDisdychonda    dc.b    '  Disdychonda',0
  3007. NDonf           dc.b    '  Donf',0
  3008. NEgelschreck    dc.b    '  Egelschreck',0
  3009. NEitriger       dc.b    '  Eitriger Krötenschemel',0
  3010. NFinage         dc.b    '  Finage',0
  3011. NGruene         dc.b    '  Grüne Schleimschlange',0
  3012. NGulmond        dc.b    '  Gulmond',0
  3013. NHesindigo      dc.b    '  Hesindigo',0
  3014. NHiradwurz      dc.b    '  Hiradwurz',0
  3015. NHoellenkraut   dc.b    '  Höllenkraut',0
  3016. NHorusche       dc.b    '  Horusche',0
  3017. NIlmenblatt     dc.b    '  Ilmenblatt',0
  3018. NJoruga         dc.b    '  Joruga',0
  3019. NKairan         dc.b    '  Kairan',0
  3020. NKajubo         dc.b    '  Kajubo',0
  3021. NKukris         dc.b    '  Kukris',0
  3022. NLotos          dc.b    '  Lotos',0
  3023. NLulanie        dc.b    '  Lulanie',0
  3024. NMenchal        dc.b    '  Menchal',0
  3025. NMessergras     dc.b    '  Messergras',0
  3026. NMibelrohr      dc.b    '  Mibelrohr',0
  3027. NMirbelstein    dc.b    '  Mirbelstein',0
  3028. NNaftanstaude   dc.b    '  Naftanstaude',0
  3029. NNothilf        dc.b    '  Nothilf',0
  3030. NOlginwurz      dc.b    '  Olginwurz',0
  3031. NOrazal         dc.b    '  Orazal',0
  3032. NOrkland        dc.b    '  Orkland-Bovist',0
  3033. NPestsporenpilz dc.b    '  Pestsporenpilz',0
  3034. NPfeifenkraut   dc.b    '  Pfeifenkraut',0
  3035. NPhosphorpilz   dc.b    '  Phosphorpilz',0
  3036. NQuinja         dc.b    '  Quinja',0
  3037. NRauschgurke    dc.b    '  Rauschgurke',0
  3038. NRoter          dc.b    '  Roter Drachenschlund',0
  3039. NRote           dc.b    '  Rote Pfeilblüte',0
  3040. NSansaro        dc.b    '  Sansaro',0
  3041. NSchleichender  dc.b    '  Schleichender Tod',0
  3042. NSchleimiger    dc.b    '  Schleimiger Sumpfknöterich',0
  3043. NSchlinggras    dc.b    '  Schlinggras',0
  3044. NShurinknolle   dc.b    '  Shurinknolle',0
  3045. NSuesser        dc.b    '  Süßer Tod',0
  3046. NTalaschin      dc.b    '  Talaschin',0
  3047. NTarnele        dc.b    '  Tarnele',0
  3048. NTee            dc.b    '  Tee',0
  3049. NThonnys        dc.b    '  Thonnys',0
  3050. NTraschbart     dc.b    '  Traschbart',0
  3051. NUlmenwuerger   dc.b    '  Ulmenwürger',0
  3052. NVierblatt      dc.b    '  Vierblatt',0
  3053. NVragieswurzel  dc.b    '  Vragieswurzel',0
  3054. NWasserrausch   dc.b    '  Wasserrausch',0
  3055. NWinselgras     dc.b    '  Winselgras',0
  3056. NWirselkraut    dc.b    '  Wirselkraut',0
  3057. NWuergedattel   dc.b    '  Würgedattel',0
  3058. NXordai         dc.b    '  Xordai',0
  3059. NYagan          dc.b    '  Yagan',0
  3060. NZunderschwamm  dc.b    '  Zunderschwamm',0
  3061. NZwoelfblatt    dc.b    '  Zwölfblatt',0
  3062. TAlraune        dc.b 'Die Alraune oder Mandragora ist eine kleine unscheinbare',10
  3063.         dc.b 'Pflanze, deren Blätter am Rande gezackt und sehr schmal sind.',10
  3064.         dc.b 'Doch nicht die tiefgrünen Blätter sind der interessante Teil',10
  3065.         dc.b 'der Pflanze, sondern die bleiche Wurzel, deren Form oft an die',10
  3066.         dc.b 'eines Menschen erinnert. Wegen dieser Ähnlichkeit werden der',10
  3067.         dc.b 'Alraune viele Zauberfähigkeiten, ja sogar eine eigene Seele zu-',10
  3068.         dc.b 'gesprochen. In der Tat lassen sich aus der Alraune viele Wunder-',10
  3069.         dc.b 'mittel gewinnen. Der Saft alleine ist leicht giftig und führt',10
  3070.         dc.b 'zu heftigen Erbrechen. Wird die Alraune jedoch anderen Mixturen',10
  3071.         dc.b 'beigemengt, so steigert sich oft deren Wirkung oder läßt sie',10
  3072.         dc.b 'überhaupt erst zum Tagen kommen. Die Wurzel kann zu jeder Zeit',10
  3073.         dc.b 'des Jahres gesammelt werden.',10
  3074.         dc.b 'Preis: 1S / 8S (für eine eingelegte Alraune)',0
  3075. TArganwurzel    dc.b 'Die gedrungene Arganstrauch mit seinen kleinen, länglichen und',10
  3076.         dc.b 'auffälligen blaustichigen Blättern wächst gerne an schattigen',10
  3077.         dc.b 'und feuchten Standorten. Je frischer die Wurzel ist, desto stär-',10
  3078.         dc.b 'ker sind die lebensfördernden Wirkungen der Pflanze, die als Heil-',10
  3079.         dc.b 'mittel gegen jedes Übel eingesetzt werden kann. Am besten wird die',10
  3080.         dc.b 'Wurzel roh verzehrt, jedoch ist es auch möglich, eine Absud zuzu-',10
  3081.         dc.b 'bereiten, der sich etwa zwei Wochen lang hält, jedoch eine ge-',10
  3082.         dc.b 'ringere Heilwirkung aufweist.',10
  3083.         dc.b 'Wirkung: frische Arganwurzel gibt W20+10 LP zurück, der Absud',10
  3084.         dc.b '2W6+3 LP.',10
  3085.         dc.b 'Preis: 4S / 20D',0
  3086. TAtanax         dc.b 'Atanax nennt man das Gebräu, das aus der Rinde der Atan-Kiefer,',10
  3087.         dc.b 'einer Krüppelkiefer, die nur im Ehernen Schwert in den Höhen',10
  3088.         dc.b 'von mehr als 2000 Schritt vorkommt, gewonnen wird. Der Baum er-',10
  3089.         dc.b 'reicht selten einmal eine Höhe von mehr als anderthalb Schritt,',10
  3090.         dc.b 'ist meist vom Wind gebeugt und schwer von anderen Krüppelkiefern',10
  3091.         dc.b 'zu unterscheiden. Die Rinde läßt zu jeder Jahreszeit gewinnen,',10
  3092.         dc.b 'jedoch sollte man darauf achten, den Baum seines ganzen Schutzes',10
  3093.         dc.b 'zu berauben, da er sonst eingeht. Die Rinde muß drei Tage in klarem',10
  3094.         dc.b 'Wasser eingekocht werden, wobei die Zugabe ein wenig Salz den',10
  3095.         dc.b 'Lösungsprozeß beschleunigt. Aus der Rinde einer Atan-Kiefer lassen',10
  3096.         dc.b 'sich so fünf Portionen Atanax, ein bräunlicher, sehr bitter schmek-',10
  3097.         dc.b 'kender Sud, gewinnen. Das Gebräu hält sich im dunklen Gefäßen bis',10
  3098.         dc.b 'zu einem Jahr lang.',10
  3099.         dc.b 'Wirkung: Atanax wirkt fiebersenkend und fördert den Gesundungs-',10
  3100.         dc.b 'prozeß bei vielen Krankheiten. Der entsprechende Schadenswurf wird',10
  3101.         dc.b 'um 2 Punkte vermindert.',10
  3102.         dc.b 'Preis: 12S pro Stein Rinde / 10D pro Portion Atanax',0
  3103. TAtmon          dc.b 'Atmon ist der Name eines zähen Grasgewächses, das am besten auf',10
  3104.         dc.b 'trockenem Boden gedeiht. Die ledrigen Blätter und die zarten',10
  3105.         dc.b 'Blütenrispen der hellgrünen Pflanze (die gemeinhin im Peraine',10
  3106.         dc.b 'gesammelt wird) werden zerstampft und während fünf Stunden zu',10
  3107.         dc.b 'einem dicken Brei gekocht. Diser Brei wirkt sich föderlich auf',10
  3108.         dc.b 'die Durchblutung der Muskeln und die Empfindlichkeit der Nerven',10
  3109.         dc.b 'aus. Jedoch sollte man mit Überdosierungen vorsichtig sein, da',10
  3110.         dc.b 'sich die stimmulierende Wirkung in ihr Gegenteil verkehrt, wenn',10
  3111.         dc.b 'der Brei während zweier Tage mehrmals aufgetragen wird. Eine Atmon-',10
  3112.         dc.b 'Pflanze reicht, um eine Portion des Breis herzustellen. Der Brei',10
  3113.         dc.b 'verliert binnen eines Monats die Hälfte seiner Wirkungskraft, nach',10
  3114.         dc.b 'einem halben Jahr ist sie ganz verflogen.',10
  3115.         dc.b 'Wirkung: Für alle Proben auf Talente der Körperbeherrschung, die',10
  3116.         dc.b 'der Anwender in den fünf Stunden nach Auftragen des Breis ablegen',10
  3117.         dc.b 'muß, hat er einen Bonus von 2 Punkten.',10
  3118.         dc.b 'Preis: 2D / 30D',0
  3119. TBasilamine     dc.b 'Die Basilamine - auch Chamaeleon-Springkraut genannt - ist eine',10
  3120.         dc.b 'Waldpflanze mit leuchtend roten Blüten. Während der Reife-',10
  3121.         dc.b 'zeit ihrer Früchte bildet sie Schoten aus, die schließlich auf-',10
  3122.         dc.b 'platzen und ihren Inhalt - von einem Säuremantel umgebene, lin-',10
  3123.         dc.b 'sengroße Früchte - bis zu fünf Schritt weit in die Umgebung ver-',10
  3124.         dc.b 'schießen. Die Säure ist zwar nicht sehr aggressiv, kann jedoch',10
  3125.         dc.b 'Kleidung und Ausrüstung ruinieren und unangenehme Brandflecken',10
  3126.         dc.b 'auf der Haut erzeugen. Im Spiel heißt dies, daß jeder Basilamin-',10
  3127.         dc.b 'en-Treffer auf ungeschützte Stellen 1/10 SP hervorruft und auf',10
  3128.         dc.b 'organischen Materialen 1/100 Punkt des Rüstungsschutzes raubt.',10
  3129.         dc.b 'Basilaminen stehen meist in kleineren Gruppen zusammen und ähneln',10
  3130.         dc.b 'in Form und Farbe ihren jeweiligen Nachbarpflanzen, daher ihr',10
  3131.         dc.b 'zweiter Name. Direkt erkenntlich sind sie nur zur Blütezeit (ING).',0
  3132. TBelmart        dc.b 'Belmart nennt man die vielfach gerippten, dunkelgrünen Blätter',10
  3133.         dc.b 'eines kugeligen Busches, der am häufigsten im Schatten der nord-',10
  3134.         dc.b 'aventurischen Wälder zu finden ist. Das frische Blatt (das von',10
  3135.         dc.b 'Peraine bis Boron zu finden ist) bewirkt eine enorme Steigerung',10
  3136.         dc.b 'der Abwehrkräfte des Körpers. Leider wurde noche keine Methode',10
  3137.         dc.b 'gefunden, diese Wirkung über längere Zeit zu bewahren. Einzig das',10
  3138.         dc.b 'Trocknen der Blätter ermöglicht eine längere Lagerung von etwa',10
  3139.         dc.b 'vier Monaten.',10
  3140.         dc.b 'Wirkung: Die Wirkung von Krankheiten wird einen Tag neutralisiert,',10
  3141.         dc.b 'es ist kein Schadenwurf nötig. Bei Giften wird eine Stufenprobe',10
  3142.         dc.b 'für das Gift abgelegt, ob es seine Wirkung entfalten kann. Getrock-',10
  3143.         dc.b 'netes Belmart verhindert den täglichen Schadenswurf bei Krankheiten',10
  3144.         dc.b 'um 3 Punkte und stoppt die Wirkung von Giften bis zur fünften Stufe.',10
  3145.         dc.b 'Preis: 9S / 12D',0
  3146. TCarlog         dc.b 'Diese binsenähnliche Gewächs besitzt lange, dünne Halme und blaß-',10
  3147.         dc.b 'gelbe Blüten: Die Stempel dieser Blüten ermöglichen eine gute',10
  3148.         dc.b 'Nachtsicht, wenn sie roh eingenommen werden. Da sie jedoch nach',10
  3149.         dc.b 'zwei Tagen ungenießbar werden, empfiehlt es sich, die Stempel in',10
  3150.         dc.b 'Alkohol einzulegen (1 Schank Alc. für 5 Stempel), da sie sich dann',10
  3151.         dc.b 'bis zu einem halben Jahr lang halten. Carlog blüht im Periane und',10
  3152.         dc.b 'Efferd. Die Blütenstempel sollten nicht tagsüber eingenommen wer-',10
  3153.         dc.b 'den, da dies zu heftigen Kopfschmerzen, schlimmstenfalls gar zu',10
  3154.         dc.b 'einer zeitweiligen Erblindung führt.',10
  3155.         dc.b 'Wirkung: Carlog erweitert die Pupillen und erhöht die Empfindlich-',10
  3156.         dc.b 'keit der Netzhaut. Dadurch kann man nachts so gut sehen wie etwa',10
  3157.         dc.b 'in der frühen Dämmerung.',10
  3158.         dc.b 'Preis: 5S / 18D',0
  3159. TChonchinis     dc.b 'Unter dem Namen Chonchinis kennen wir eine Pflanze mit ledrigen,',10
  3160.         dc.b 'fast auf dem Boden liegenden, dunkelgrünen Blättern, in deren Mitte',10
  3161.         dc.b 'eine blaßrosa Blütendolde entspringt. Die ledrigen Blätter werden',10
  3162.         dc.b 'leicht angeritzt und auf Brand- oder Ätzwunden gelegt, wo sie deut-',10
  3163.         dc.b 'liche Schmerzlinderung bringen. Will man Chonchinis weiterverarbei-',10
  3164.         dc.b 'ten, empfiehlt es sich, die Blätter im Efferd zu ernten, weil sie dann',10
  3165.         dc.b 'die größte Menge der heilkräftigen Milch enthalten. Diese läßt man',10
  3166.         dc.b 'aus den angeritzten Blättern tropfen, mischt sie mit einer Salben-',10
  3167.         dc.b 'grundlage (und vielleicht etwas Wirselkraut), und enthält so eine',10
  3168.         dc.b 'Brandsalbe, die sie etwa zwei Jahre lang hält, wenn man sie in',10
  3169.         dc.b 'einem geschlossenen Tiegel aufbewarht.',10
  3170.         dc.b 'Wirkung: Auf Brand- oder Ätzwunden aufgelegt bringt Chonchinis 5 LP',10
  3171.         dc.b 'zurück. Der Saft ist Grundlage für Brandsalben.',10
  3172.         dc.b 'Preis: 4S pro Pflanze / 7D für zwei Anwendungen Salbe',0
  3173. TDisdychonda    dc.b 'Die Disdychonda ist eine große, fleischfressende Pflanze,',10
  3174.         dc.b 'die in den Dschungeln Südaventuriens vorkommt. Um einen',10
  3175.         dc.b 'grünbraunen, vier Spann hohen und sehr dicken Stamm mit',10
  3176.         dc.b 'violetter, glockenförmiger Blüte liegen gewöhnlich vier',10
  3177.         dc.b 'großflächige, fleischige Blätter von tiefgrüner Farbe. Wann',10
  3178.         dc.b 'immer ein Opfer eines der Blätter betritt, rollt sich dieses',10
  3179.         dc.b 'blitzartig zusammen und versucht, die Beute zu fassen. Ge-',10
  3180.         dc.b 'lingt dies, so wird die Beute zum Stamm befördert, der ein',10
  3181.         dc.b 'Verwesungssekret absondert. Die Blätter sind mit kleinen Nes-',10
  3182.         dc.b 'seln bedeckt, die ein sehr schnell wirkendes Lähnungsgift ab-',10
  3183.         dc.b 'geben. Wegen dieses Giftes, das zu Kelmon weiterverarbeitet',10
  3184.         dc.b 'werden kann, ist die Pflanze auch bei Alchemisten begehrt.',10
  3185.         dc.b 'Jedes Blatt besitzt normalserweise 10 LP, der Stamm 20 LP.',10
  3186.         dc.b 'Um ein Opfer mit dem Blatt einzufangen, führt die Disdy-',10
  3187.         dc.b 'chonda eine Attacke mit dem Wert 8 durch. Der Rüstungs-',10
  3188.         dc.b 'schutz der Pflanze beträgt vier Punkte. Jeder Held, der',10
  3189.         dc.b 'in ein Disdychondablatt eingerollt ist, erleidet pro KR',10
  3190.         dc.b '1W6 SP. Er kann befreit werden, indem man dem Blatt 10 SP',10
  3191.         dc.b 'zugefügt. Die Monsterklasse der Pflanze beträgt 20.',10
  3192.         dc.b 'Preis: 3D pro Disdychondablatt / 25D für eine Anwendung',10
  3193.         dc.b 'Kelmon',0
  3194. TDonf           dc.b 'Diese Sumpfpflanze besteht fast mur aus einem einen Schritt langen,',10
  3195.         dc.b 'finger dicken Stengel und einer einzigen, violetten Blüte. Der',10
  3196.         dc.b 'Stengel der Donfpflanze enthält viele heilkräftige Stoffe und sollte',10
  3197.         dc.b 'am Besten unverarbeitet gegessen werden. Da dies meist nicht möglich',10
  3198.         dc.b 'ist, findet man in Apotheken häufig Donfstengel, die in Alkohol ein-',10
  3199.         dc.b 'gelegt und in einem licht- und luftdichtem Gefäß verpackt sind. Bei',10
  3200.         dc.b 'dieser Aufbewahrungsart hält sich Donf etwa ein Jahr lang.',10
  3201.         dc.b 'Wirkung: Wirkt gegen verschiedene Krankheiten, besonders Paralyse',10
  3202.         dc.b 'und Sumpffieber (s.d.)',10
  3203.         dc.b 'Preis: 3S / 20D',0
  3204. TEgelschreck    dc.b 'Der Egelschreck ähnelt dem Fetten Wegerich und kann sogar leicht mit',10
  3205.         dc.b 'ihm verwechselt werden. Man findet diese feuchtigkeitsliebende Pflanze',10
  3206.         dc.b 'fast in ganz Mittelaventurien. Die dunkelgrünen, aromatisch riechenden',10
  3207.         dc.b 'Blätter werden verrieben und zu einer Salbe verarbeitet. Eine Paste aus',10
  3208.         dc.b 'Kalk und zerstoßenen Egelschreckblättern stoppt Blutungen und vertriebt,',10
  3209.         dc.b 'wenn sie auf den Körper aufgetragen wird, verschiedene Parasiten. Die',10
  3210.         dc.b 'Paste ist gut 8 Monate haltbar. Egelschreck wird am Besten im Spätsommer',10
  3211.         dc.b 'geerntet.',10
  3212.         dc.b 'Wirkung: stoppt Blutungen, vertriebt einen Tag lang Wanzen und andere',10
  3213.         dc.b 'blutsaugende Parasiten.',10
  3214.         dc.b 'Preis: 8H / 2D',0
  3215. TEitriger       dc.b 'Wohlbekannt ist der Eitrige Krötenschemel vorallem dadurch, daß er die',10
  3216.         dc.b 'Lieblingsspeise der gefährlichen Maraskan-Taranteln darstellt. Der gelbrot',10
  3217.         dc.b 'gesprenkelte, etwa doppelt faust- bis kürbisgroße Pilz liebt feuchte Böden',10
  3218.         dc.b 'kommt aber bisweilen auch in Gärten oder gar städtischen Hinterhöfen vor.',10
  3219.         dc.b 'Aus seiner Haut kann ein mittelschweres Gift gewonnen werden.',10
  3220.         dc.b 'Preis: 7S / 15D',0
  3221. TFinage         dc.b 'Die jungen Triebe des Finage-Bäumenchens, das im Peraine ausschlägt,',10
  3222.         dc.b 'werden in vielen Tränken verwendet. Das Bäumchen erreicht eine Höhe von',10
  3223.         dc.b 'maximal 3 Schritt und ist an seinen leicht rötlichen Blättern zu erkennen.',10
  3224.         dc.b 'Ein Gebräu aus den jungen Trieben hält sich 4 Monate lang, wenn es mit',10
  3225.         dc.b 'Orazal versetzt wird, auch 8 Monate.',10
  3226.         dc.b 'Wirkung: Der Finage-Sud hebt eine beliebige Eigenschaft wieder auf den Ur-',10
  3227.         dc.b 'sprungsstand, falls diese durch Gift, Zauberei, Erschöpfung o.ä. abgesunken ist',10
  3228.         dc.b 'Preis: 6S / 8D',0
  3229. TGruene         dc.b 'Die Grüne Schleimschlange ist ein Sumpfgewächs, das den Boden mit seinen',10
  3230.         dc.b 'fingerdicken Wurzelarmen überzieht und häufig verwesende Kadaver mit seinen',10
  3231.         dc.b 'Schlingen eingespinnt. Die Pflanze ist dunkelgrün und häufig von Verwesungs-',10
  3232.         dc.b 'geruch umgehen. Um lebende Wesen zu umschlingen, ist sie viel zu langsam,',10
  3233.         dc.b 'doch erregt ein im Sumpf liegendes, von der Schleimschlange überwuchertes',10
  3234.         dc.b 'Gerippe oft diesen Eindruck.',0
  3235. TGulmond        dc.b 'Das Blatt des Gulmondstrauches ist für seine kraft- und aus-',10
  3236.         dc.b 'dauersteigernde Wirkung bekannt. Aus den etwa handtellergroßen,',10
  3237.         dc.b 'fleischigen Blättern wird meistens ein Tee bereitet, jedoch',10
  3238.         dc.b 'kommt es auch vor, daß die frischen Blätter mit ein wenig Kreide',10
  3239.         dc.b 'zusammen gekaut werden. Dies ist vor allem bei den Hirten im',10
  3240.         dc.b 'Sevelltal und bei den Orks beliebt. Die Blätter bleiben etwa',10
  3241.         dc.b 'zwei Tage frisch - getrocknet können sie bis zu 18 Monaten lang',10
  3242.         dc.b 'aufbewahrt werden.',10
  3243.         dc.b 'Wirkung: 3 frische Gulmond-Blätter bringen zerkaut für 12 Stunden',10
  3244.         dc.b 'KK+1, AU+5 und 1 LP; Tee aus drei frischen Blättern bringt für',10
  3245.         dc.b '8 Stunden KK+2, AU+10 und 2 LP; Tee aus 5 getrockneten Blättern',10
  3246.         dc.b 'bringt 8 Stunden lang KK+1, AU+5 und 1 LP; "Doppelter Gulmond"',10
  3247.         dc.b '(Tee aus 6 frischen Blättern, der auch Minze enthält) schließ-',10
  3248.         dc.b 'lich bringt für 4 Stunden KK+3, AU+15 und 2 LP, allerdings muß',10
  3249.         dc.b 'am nächsten Tag mit einem schweren Kater (KK und GE für 1 Tag je',10
  3250.         dc.b '-1) gerechnet werden.',10
  3251.         dc.b 'Preis: 8S für einen Strauch / 6D für 1 Anwendung Gulmondtee,',10
  3252.         dc.b '"Doppelter Gulmondtee" kostet 8D',0
  3253. THesindigo      dc.b 'Die von den Ureinwohnern der Waldinseln Guraan genannte Pflanze,',10
  3254.         dc.b 'die den hochwertigen blauen Farbstoff Hesindigo liefert, ist ein',10
  3255.         dc.b 'Strauch mit dukatengroßen, blauen, fleischigen Blüten. Wenn diese',10
  3256.         dc.b 'ausgespreßt und mit verschiedenen alchemistischen Stoffen behandelt',10
  3257.         dc.b 'werden, entsteht ein teifblauer Pflanzensaft, der in dunkelen Ge-',10
  3258.         dc.b 'fäßen mehr als 3 Jahre haltbar ist. Hesindigo-Farbe bleicht auch',10
  3259.         dc.b 'unter stärkster Sonnenbestrahlung kaum aus.',10
  3260.         dc.b 'Preis: 1H / 5S pro Unze',0
  3261. THiradwurz      dc.b 'Der oberirdische Teil von Hiradwurz ist ein unscheinbares, hell-',10
  3262.         dc.b 'grünes Kraut, die etwa anderthalb Spann lange, möhrenähnliche,',10
  3263.         dc.b 'weiße Wurzel ist jedoch als Gegenmittel gegen Schlangengift be-',10
  3264.         dc.b 'kannt. Sie kann entweder roh verzehrt werden oder als alkoholischer',10
  3265.         dc.b 'Auszug, der sich etwa ein Jahr lang hält.',10
  3266.         dc.b 'Wirkung: Hebt die Giftwirkung aller Schlangengifte auf und bringt',10
  3267.         dc.b 'bis zu 15 LP, die durch Schlangengift verloren gingen, wieder zurück.',10
  3268.         dc.b 'Preis: 8S 12D',0
  3269. THoellenkraut   dc.b 'Das Höllenkraut ist eine Schlingpflanze mit gelben, kleinen Blüten,',10
  3270.         dc.b 'das sich nur in warmem Klima findet. Wenn die inneren Fäden der Ranke',10
  3271.         dc.b 'zerkaut werden, bildet sich im Speichel das leichte Gift Wurara, das',10
  3272.         dc.b 'dann eingekocht und auf Pfeilspitzen geschmiert wird. Die Mohas',10
  3273.         dc.b 'scheinen gegen dieses Gift vollständig immun zu sein.',10
  3274.         dc.b 'Preis: 10S / 15D',0
  3275. THorusche       dc.b 'Die Horusche ist ein südaventurisches Rankgewächs,das sich vor allem',10
  3276.         dc.b 'an den großen Mammutbäumen findet. In den dickfleischigen Schoten',10
  3277.         dc.b 'ihrer Früchte stecken jeweils ein bis zwei haselnußgroße Kerne, deren',10
  3278.         dc.b 'Verzehr sehr kräftigend wirkt. Leider enthält die Frucht auch ein',10
  3279.         dc.b 'Gift, das in höheren Dosierungen äußert schädlich ist. Die Horuschen-',10
  3280.         dc.b 'kerne können während des ganzen Jahres gesammelt werden, ihre Lager-',10
  3281.         dc.b 'fähigkeit ist jedoch begrenzt: In der Schote halten sie sich zwei,',10
  3282.         dc.b 'Wochen, ansonsten höchstens 5 Tage',10
  3283.         dc.b 'Wirkung: Pro Kern gewinnt der Anwender für 20 Stunden einen KK-Punkt',10
  3284.         dc.b 'hinzu. Werden während der Wirkungsdauer des ersten Kernes weitere ge-',10
  3285.         dc.b 'gessen, so verursacht jeder Kern 1W+4 SP. Der KK-Zuschlag gilt jedoch',10
  3286.         dc.b 'trotzdem.',10
  3287.         dc.b 'Preis: 1S / 5D (jeweils pro Kern)',0
  3288. TIlmenblatt     dc.b 'Ilmenblatt ist eine bis zu einem  Schritt hohe Strauchpflanze',10
  3289.         dc.b 'mit hellgrünen, siebenfingrigen, leicht gezahnten Blättern,',10
  3290.         dc.b 'die in Südaventurien zweimal im Jahr blüht. Die Blüten und',10
  3291.         dc.b 'Blattspitzen werden verwendet, um ein leichtes, die Stim-',10
  3292.         dc.b 'mung hebendes Rauschmittel herzustellen. Das getrocknete',10
  3293.         dc.b 'Kraut oder das gewonnene Harz sind praktisch unbegrenzt',10
  3294.         dc.b 'haltbar und werden entweder zusammen mit Pfeifenkraut ge-',10
  3295.         dc.b 'raucht oder auf heißen Steinen oder in Pfannen erhitzt.',10
  3296.         dc.b 'Viele Lebewesen werden von den Dämpfen beruhigt und fried-',10
  3297.         dc.b 'lich gestimmt, weswegen Ilmenblatt auch in Friedenswasser',10
  3298.         dc.b 'verwendet wird.',10
  3299.         dc.b 'Wirkung: Leichtes Rauschmittel, Dämpfe beruhigen auch Ber-',10
  3300.         dc.b 'serker und Amoklaufende.',10
  3301.         dc.b 'Preis: 2S / 11D (jeweils pro Unze)',0
  3302. TJoruga         dc.b 'Joruga ist eine fingerlange, fahlgelbe Wurzel, deren über-',10
  3303.         dc.b 'irdischer Teil stark an Selleriekraut erinnert. Die Pflanze',10
  3304.         dc.b 'liebt schattige Plätze. Aus der Wurzel kann durch einfaches',10
  3305.         dc.b 'Kocken ein Sud gewonnen werden, der etwa einen Monat lang',10
  3306.         dc.b 'genießbar bleibt. Die Wurzel selbst beginnt etwa drei Tage',10
  3307.         dc.b 'nach dem Ernten zu faulen.',10
  3308.         dc.b 'Wirkung: Joruga-Absud verhindert eine Woche lang Tollwut-',10
  3309.         dc.b 'Ansteckung.',10
  3310.         dc.b 'Preis: 3S / 18D',0
  3311. TKairan         dc.b 'Der Kairan ähnelt dem Schachtelhalm, wächst aber nur unter',10
  3312.         dc.b 'der Wasseroberfläche. Man zerreibt die dunkelgrünen Halme,',10
  3313.         dc.b 'gib zur Wirkungsförderung etwas Mibelrohr hinzu und legt',10
  3314.         dc.b 'das ganze Gemisch in Alkohol ein. Solange der Kairan in',10
  3315.         dc.b 'Wasser aus dem Neuaugensee aufbewahrt wird, hält er sich',10
  3316.         dc.b 'etwa vier Wochen. Die aus Mibelrohr gewonnene Essenz ist',10
  3317.         dc.b 'bis zu einem halben Jahr lang haltbar.',10
  3318.         dc.b 'Wirkung: Jedes magiebegabte Wesen, das von der Essenz',10
  3319.         dc.b 'trinkt, gewinnt 7 ASP zum derzeitigen Stand hinzu. Werden',10
  3320.         dc.b 'diese nicht binnen 14 Stunden verbraucht, so verschwinden',10
  3321.         dc.b 'sie wieder.Während der Wirkungsdauer eingenommene Essenz',10
  3322.         dc.b 'hat keinen zusätzlichen Effekt. Häufiger genuß kann zu',10
  3323.         dc.b 'Mibelsucht führen',10
  3324.         dc.b 'Preis: 15S / 40D',0
  3325. TKajubo         dc.b 'Die Knospen des dornigrn Kajubostrauches, einer altoumischen',10
  3326.         dc.b 'Waldpflanze mit großen gelben Blüten haben auf den Organis-',10
  3327.         dc.b 'mus von Menschen, Elfen und Zwerge eine ganz besondere',10
  3328.         dc.b 'Wirkung: Sie ermöglichen es, daß der Anwender ohne Luft',10
  3329.         dc.b 'auskommt. Die Knospen müssen allerdings frisch (Phex bis',10
  3330.         dc.b 'Travia) sein, damit sich die volle Wirkung entfalten kann.',10 
  3331.         dc.b 'In Öl eingelegte Knospen besitzen nur ein Drittel der Wir-',10
  3332.         dc.b 'kungsdauer.',10
  3333.         dc.b 'Wirkung: 5 Knospen ermöglichen es, für 3 Spielrunden gänz-',10
  3334.         dc.b 'lich ohne Luft auszukommen.',10
  3335.         dc.b 'Preis: 2S /10D (5 Knospen)',0
  3336. TKukris         dc.b 'Wir haben die Mirhamer Seidenliane unter diesen Namen auf-',10
  3337.         dc.b 'geführt, da sie kaum jemand noch mit Namen kennt, wenn',10
  3338.         dc.b 'aus ihr Seile gedreht worden sind. Wenn man bestimmte',10
  3339.         dc.b 'Teile der Liane jedoch faulen läßt und mit einigen ein-',10
  3340.         dc.b 'fachen Zutaten behandelt (das genaue Rezept dürfen wir',10
  3341.         dc.b 'hier jedoch mit verraten), entsteht daraus "Königsmacher",',10
  3342.         dc.b 'das beliebteste Gift der Meuchler.',10
  3343.         dc.b 'Preis: 6D / 90D',0
  3344. TLotos          dc.b 'Die verschiedenen Lotosarten (schwimmende Pflanzen mit',10
  3345.         dc.b 'großen Blütenkelchen) werden fast ausschließlich nach',10
  3346.         dc.b 'der Farbe ihrer Blüten benannt. Gelber, Roter, Blauer',10
  3347.         dc.b 'und Rosa Lotos finden in der Färberei Verwendung, ebenso',10
  3348.         dc.b 'der Purpurne Lotos, der jedoch auch in verschiedenen',10
  3349.         dc.b 'alchimistischen Rezepten erscheint. Berühmt sind auch',10
  3350.         dc.b 'der Weiße Lotos - eine mannigfaltig verwendbare Pflanze,',10
  3351.         dc.b 'die auch das traditionelle maraskanische Königswappen',10
  3352.         dc.b 'ziert - und der Schwarze Lotos, der wegen seines hoch-',10
  3353.         dc.b 'giftigen Blütenstaubes gefürchtet wird.',10
  3354.         dc.b 'Preis: 1D / 30D pro Skrupel Blütenstaub des Schwarzen Lotos',0
  3355. TLulanie        dc.b 'Die Lulanie ist eine Blume, die der irdischen Mohnblume',10
  3356.         dc.b 'ähnelt, jedoch mit Vorliebe in Wäldern wächst und einen',10
  3357.         dc.b 'feinen Blütenstaub besitzt, welcher bei bestimmten Krank-',10
  3358.         dc.b 'heiten eingenommen werden muß. Der Staub ist mehrere Monate',10
  3359.         dc.b 'ohne Wirkungsverlust haltbar.',10
  3360.         dc.b 'Wirkung: Der Blütenstaub wirkt förderlich auf die Heilung',10
  3361.         dc.b 'der Krankheiten Lutanas und Rascher Wahn.',10
  3362.         dc.b 'Preis: 10S / 13D',0
  3363. TMenchal        dc.b 'Sowohl am Rande als auch im Herzen der Khmowüste findet',10
  3364.         dc.b 'sich der Menchal-Kaktus, eine etwa zwei Spann durchmes-',10
  3365.         dc.b 'sende Kugel,deren Haut so zäh ist wie eine gute Leder-',10
  3366.         dc.b 'rüstung. Das Fruchtfleisch des Katus speichert nicht nur',10
  3367.         dc.b 'Wasser, nein, es kann auch ausgepreßt werden und liefert',10
  3368.         dc.b 'so einen drei Monate lang haltbaren Saft, der gegen vie-',10
  3369.         dc.b 'lerlei Gifte wirkt. Der Katus kann auch als Ganzes trans-',10
  3370.         dc.b 'portiert werden. In diesem Fall beginnt er allerdings',10
  3371.         dc.b 'nach zwei Monaten zu verfaulen.',10
  3372.         dc.b 'Wirkung: Menchal-Saft halbiert die Wirkung von Giften',10
  3373.         dc.b 'aller Art.',10
  3374.         dc.b 'Preis: 2D / 20D',0
  3375. TMessergras     dc.b 'Das Messergras ist eine besonders widerstandsfähige Gras-',10
  3376.         dc.b 'art, die bei Reisenden wegen ihrer scharfen, langen Blät-',10
  3377.         dc.b 'ter gefrüchtet ist. Wo es vorkommt, wächst es im großen',10
  3378.         dc.b 'Gebieten, deren Durchquerung fast immer Schaden nach sich',10
  3379.         dc.b 'zieht. Pro Meile durchwanderter Messergrassteppe muß man',10
  3380.         dc.b 'mit 1W+2 SP rechnen. Die größte Messergrassteppe (die',10
  3381.         dc.b 'auch den Namen trägt), liegt südöstlich des andergastischen',10
  3382.         dc.b 'Grenzortes Teschkal. Aus dem Gras lassen sich recht wider',10
  3383.         dc.b 'standsfähige Matten flechten, die im Orkland zu Behau-',10
  3384.         dc.b 'sungen zusammengestellt werden.',0
  3385. TMibelrohr      dc.b 'Das Mibelrohr ähnelt dem gewöhnlich Schlif. Es besitz einen',10
  3386.         dc.b 'langen Stengel, schmale, rapierähnliche Blätter und eine',10
  3387.         dc.b 'kolbenförmige Blüte. Dieser Kolben wird bei der Verarbei-',10
  3388.         dc.b 'tung am Stengel belassen, zerstampft und mit kochendem',10
  3389.         dc.b 'Wasser übergossen, so daß eine Art Tee entsteht, der das',10
  3390.         dc.b 'Reaktions- und Konzentrationsvermögen steigert. Dieses',10
  3391.         dc.b 'Gebräu ist in geschlossenen Gefäßen bis zu sechs Monaten',10
  3392.         dc.b 'lang haltbar.',10
  3393.         dc.b 'Wirkung: KL und GE des Anwenders steigen für eine Stunde',10
  3394.         dc.b 'um je 2 Punkte. Zu häufiger Genuß - mehr als einmal pro',10
  3395.         dc.b 'Monat - führen zur Mibelsucht, einer Krankheit der 8. Stufe.',10
  3396.         dc.b 'Der Tee hat zwar beim Süchtigen weder positive noch negative',10
  3397.         dc.b 'Wirkung, ein Entzug führt jedoch zu völliger Apathie.',10
  3398.         dc.b 'Preis: 2S / 18D',0
  3399. TMirbelstein    dc.b 'Der oberirdische Teil dieser Pflanze besteht aus einem ein-',10
  3400.         dc.b 'zigen, etwas handtellergroßen Blatt, das einem bewachsenen',10
  3401.         dc.b 'Stein ähnelt und daher nicht leicht zu finden ist. Die Wur-',10
  3402.         dc.b 'zelknolle der Pflanze wird zerrieben und in einem Beutel am',10
  3403.         dc.b 'Gürtel getragen, wodurch ein Geruch entsteht, der sowohl für',10
  3404.         dc.b 'Parasiten als auch für menschliche (und erst recht elfische)',10
  3405.         dc.b 'Nasen schwer zu ertragen ist. Der Geruch hält sich etwa drei',10
  3406.         dc.b 'Wochen, haftet jedoch nicht an Haut oder Kleidern.',10
  3407.         dc.b 'Wirkung: Der Geruch vertreibt Flöhe, Läuse und Wanzen in bis',10
  3408.         dc.b 'zu 2 Schritt Entfernung. Wirkt auch gegen die meisten Fliegen',10
  3409.         dc.b 'und Bremsen, nicht jedoch gegen Borbarad-Moskitos und die Mir-',10
  3410.         dc.b 'belfliege, deren Larven auf den Blättern der Pflanze schma-',10
  3411.         dc.b 'rotzen und deren Stich eine schmerzhafte Entzündung (3W+5 SP)',10
  3412.         dc.b 'hervorruft. Das Charisma des Anwenders sinkt um 4 Punkte, so-',10
  3413.         dc.b 'lange er den Beutel am Gürtel trägt.',10
  3414.         dc.b 'Preis: 1S / 6S',0
  3415. TNaftanstaude   dc.b 'Die gut zweischritthoche Naftanstaude mit ihren gelben Blüten-',10
  3416.         dc.b 'dolchen enthält in Stengeln Blättern eine honigartige Flüssig-',10
  3417.         dc.b 'keit, die außer dem Gewebe der Naftanstaude alle organischen',10
  3418.         dc.b 'Materialien binnen kürzester Zeit zerfrißt und die als Goldleim',10
  3419.         dc.b 'berühmt-berüchtigt ist. Es ist ausgesprochen schwierig, diese',10
  3420.         dc.b 'Pflanze zu ernten, aber es lohnt sich, da sie bei Alchemisten',10
  3421.         dc.b 'einen hohen Preis einbringt.',10
  3422.         dc.b 'Preis: 8D pro Staude / 30D pro Anwendung Goldleim',0
  3423. TNothilf        dc.b 'Nothilf ist eine Rankpflanze, die fast ausschließlich an Eichen',10
  3424.         dc.b 'schmarotzt. Die Ranken werden fast 10 Schritt lang, sind hellgrün',10
  3425.         dc.b 'und im Praios mit blaßrosa Blüten müssen Öl eingelegt werden,',10
  3426.         dc.b 'damit sie ihre volle Wirkung entfalten können.',10
  3427.         dc.b 'Wirkung: Nothilf stoppt augenblick die Wirkung von Tulmadron.',10
  3428.         dc.b 'Preis: 12D / 80D (jeweils 1 Anwendung, entsprechend 5 Blüten)',0
  3429. TOlginwurz      dc.b 'Olginwurz gehört zu den seltensten Pflanzen Aventuriens. Der',10
  3430.         dc.b 'oberirdische Teil besteht aus einem kleinen dunkelgrünen Moos-',10
  3431.         dc.b 'ballen, der sich unterirdisch in einem weiten Wurzelgeflecht ver-',10
  3432.         dc.b 'zweigt. Diese Wurzeln sind es auch, die mehrere Stunden lang ge-',10
  3433.         dc.b 'kocht werden und deren Absud schließlich eines der kräftigsten',10
  3434.         dc.b 'bekannten Heilmittel ergibt. Olginwurz-Absud ist in dunklen Flaschen',10
  3435.         dc.b 'etwa ein Jahr lang haltbar und in einer Apotheke ausgesprochen teuer.',10
  3436.         dc.b 'Wirkung: Olginwurz bildet Abwehrkräfte. Gifte und Krankheiten können',10
  3437.         dc.b 'der Person, die Olginwurz eingenommen hat, eine Woche lang nichts',10
  3438.         dc.b 'anhaben.',10
  3439.         dc.b 'Preis: 2D / 50D pro Anwendung',0
  3440. TOrazal         dc.b 'Diese sehr zähe Lianenart bietet dem kundigen Alchemisten eine wahre',10
  3441.         dc.b 'Fundgrube an Möglichkeiten zur Weiterverarbeitung. Sie ist zu dem so',10
  3442.         dc.b 'widerstandfähig, daß sie auch in Nordaventurien (etwa bis Salza) ge-',10
  3443.         dc.b 'zogen werden kann. Lange gekochter Absud eignet sich als zähes Klebe-',10
  3444.         dc.b 'mittel, das an der Luft binnen einer Stunde trocknet (Haltbarkeit',10
  3445.         dc.b 'etwa zwei Jahre, wenn es richtig aufbewahrt wird), während eine Lö-',10
  3446.         dc.b 'sung mit Schwefel und Weinstein als Konservierungsmittel benutzt wer-',10
  3447.         dc.b 'den kann.',10
  3448.         dc.b 'Wirkung: entweder als Klebstoff (1 Rechtspann hält etwa 100 Stein Ge-',10
  3449.         dc.b 'wicht an einer senkrechten Wand oder 5 Stein an der Decke fest) oder',10
  3450.         dc.b 'als Konservierungsmittel (verdoppelt bei vielen Produkten die Haltbar-',10
  3451.         dc.b 'keit).',10
  3452.         dc.b 'Preis: 12S pro 10 Stein Liane / 15D für eine Unze Klebstoff (reicht für',10
  3453.         dc.b '1 Rechtschritt) oder 20D für eine Unze "Schwefliger Orazal',0
  3454. TOrkland        dc.b 'Diese fast einen Schritt hohen, kartoffelähnlichen Riesenpilze',10
  3455.         dc.b 'stehen meist an schattigen Abhängen in kleineren Gruppen bei-',10
  3456.         dc.b 'sammen. Sie sind üblicherweise ungefährlich, doch im Hochsom-',10
  3457.         dc.b 'mer werden sie reif und verschießen ihre Sporen bei jeder grö-',10
  3458.         dc.b 'ßerer Erschütterung (wie sie z.B. durch ein vorbeilaufendes,',10
  3459.         dc.b 'größeres Tier ausgelöst wird). Die so befallenen Opfer bilden',10
  3460.         dc.b 'einen idealen Nährboden für die Pilze und tragen außerdem zu',10
  3461.         dc.b 'deren Verbreitung bei. Um nicht von den Sporen befallen zuwer-',10
  3462.         dc.b 'den, muß ein Held eine KK-Probe ablegen, die abhängig davon ist,',10
  3463.         dc.b 'wie weit entfernt er von einem platzenden Bovist steht. Ein Pilz-',10
  3464.         dc.b 'befall äußert sich entweder dadurch, daß sich auf der Haut ein',10
  3465.         dc.b 'grünliches Geflecht bildet (Schaden: 1W/Woche; Stufe 7) oder',10
  3466.         dc.b 'durch den Lungenpilz, der die Atmung stark behindert (Schaden:',10
  3467.         dc.b 'LE bis zur Heilung permanent um 2W6 LP vermindert, MU, KK, AT,',10
  3468.         dc.b 'PA sinken um 2 Punkte; Stufe 5).',0
  3469. TPestsporenpilz dc.b 'Der Pestporenpilz ist ein Bovist-ähnlicher Bodenpilz von der',10
  3470.         dc.b 'Größe einer Kokosnuß mit rissiger, hellbrauner Haut. Die Haut',10
  3471.         dc.b 'des reifen Pilzes wird eine Woche lang in Alkohol eingelegt,',10
  3472.         dc.b 'frischen Carlog-Blütenstempeln vermahlen und zu einer Salbe',10
  3473.         dc.b 'verarbeitet. Wird beim Ernten des Pilzes die Haut nicht vor-',10
  3474.         dc.b 'sichtig abgelößt (GE +2), so platzt der Pilz und setzt eine',10
  3475.         dc.b 'Wolke von Sporen frei, die beim Einatmen 3W+4 SP verursacht.',10
  3476.         dc.b 'Pestporenpilz-Salbe ist gut anderthalb Jahre haltbar.',10
  3477.         dc.b 'Wirkung: Wird die Salbe auf die Augenlider und die Schläfen',10
  3478.         dc.b 'gestrichen, so ermöglicht sie eine fast vollständige Nacht-',10
  3479.         dc.b 'sicht. Selbst bei mattern Sternenlicht kann der Anwender',10
  3480.         dc.b 'sehen wie am hellichten Tag. In völliger Finsternis ver-',10
  3481.         dc.b 'sagt allerdings auch dieses Mittel.',10
  3482.         dc.b 'Preis: 2S pro Pilzhaut / 40D für 3 Anwendungen Salbe',0
  3483. TPfeifenkraut   dc.b 'In letzter Zeit ist es in Aventurien Mode geworden, sich',10
  3484.         dc.b 'ein bestimmtes, getrocknetes Kraut in ein Ton- oder Holz-',10 
  3485.         dc.b 'röhrchen zu stecken und den enstehenden Rauch einzusaugen.',10
  3486.         dc.b 'Dieses Pfeifenkraut wächst ursprünglich wild an den Abhän-',10
  3487.         dc.b 'gen des Regengebirges und der Eternen, wird aber mittler-',10 
  3488.         dc.b 'weile auf großen Plantagen gezogen. Die Mohas rauchen das',10
  3489.         dc.b 'Kraut auch noch auf eine andere Weise, indem sie nämlich',10 
  3490.         dc.b 'zerschnittene Blätter und Stengel in ein Deckblatt einrol-',10
  3491.         dc.b 'len und gleich diese Rolle anzünden. Bekannte Pfeifenkraut-',10
  3492.         dc.b 'Sorten sind der leichte Methumis-Tabak aus dem Lieblichen',10 
  3493.         dc.b 'Feld, das würzige, marakanische Sinoda-Pfeifenkraut, Moha-',10
  3494.         dc.b 'cca, ein schwarzes, starkes Kraut und Warunker Knaster, eine',10 
  3495.         dc.b 'Mischung verschiedener Sorten aus Mittelaventurien.',10 
  3496.         dc.b 'Preis: - / 1H bis 4S pro Unze',0
  3497. TPhosphorpilz   dc.b 'Dieser findet sich nur in Höhlen und unterirdischen Gängen.',10
  3498.         dc.b 'Er benötigt Feuchtigkeit, um sich auszubreiten, stellt an-',10
  3499.         dc.b 'sonsten jedoch keine Ansprüche an Böden oder Klima. Der',10 
  3500.         dc.b 'Pilz bildet auf Höhlenwänden eine fingerdicke Schicht,',10
  3501.         dc.b 'die von sich aus grünlich leuchtet. Bei genügender Feuch-',10 
  3502.         dc.b 'tigkeit kann der Pilz so hell sein, daß er eine große Höhle',10
  3503.         dc.b 'oder ein Gangsystem mit grünlichem Licht erfüllt.',10 
  3504.         dc.b 'Preis: 4H pro Stein / 1S pro Unze',0
  3505. TQuinja         dc.b 'Diese knallrote Beere wächst bevorzugt an warmen, schat-',10 
  3506.         dc.b 'tigen Orten. Die frischen Beeren (Ingerimm bis Travia)',10 
  3507.         dc.b 'wirken durchblutungsfördernd und stärkend, die getrock-',10
  3508.         dc.b 'neten sind eine der Grundlagen des Kraftelixiers. Die',10
  3509.         dc.b 'Beere ist auch ein beliebtes Aufputschmittel der Echsen-',10 
  3510.         dc.b 'menschen, die aus ihr einen ungemein dreinschlagenden',10
  3511.         dc.b 'Schnaps destillieren.',10 
  3512.         dc.b 'Wirkung: KK+1 für 2 Stunden, die Einnahme mehrerer Beeren',10 
  3513.         dc.b 'gleichzeitig bringt keine weitere Wirkung.',10 
  3514.         dc.b 'Preis: 12S / 25D (jeweils für 3 Beeren)',0
  3515. TRauschgurke    dc.b 'Diese hellgrünen, birnenförmigen Früchte finden sich an',10
  3516.         dc.b 'einer großen maraskanischen Baumart. Ihr Genuß bewirkt',10 
  3517.         dc.b 'beim Menschen eine kurzzeitige Kräftesteigerung, die je-',10
  3518.         dc.b 'doch von einer deutlichen Bewußtseinstrübung begleitet ist.',10 
  3519.         dc.b 'Preis: 5H / 7S',0
  3520. TRoter          dc.b 'Die rote Blüte der ansonsten unscheinbaren, breitblättrigen',10 
  3521.         dc.b 'Pflanze errinnert vage an den aufgesperrten Rachen eines',10 
  3522.         dc.b 'Lindwurmes - daher der Name. Das Gewächs kann bei den Opfern',10
  3523.         dc.b 'von Lykanthropie den Ausbruch der Krankheit verhindern. Dazu',10
  3524.         dc.b 'muß den Opfern ein Druckverband aus frischen Drachenschlund-',10 
  3525.         dc.b 'Blättern auf die Bißwunde gelegt werden. Die Blätter dürfen',10
  3526.         dc.b 'höchstens eine Woche alt sein. Ein Behandlung mit dieser Pfla-',10
  3527.         dc.b 'nze wirkt bei einem Werwolfsopfer nur ein einziges Mal.',10 
  3528.         dc.b 'Wirkung: Verhindert den Ausbruch von Lykanthropie.',10 
  3529.         dc.b 'Preis: 20D',0
  3530. TRote           dc.b 'Dieses Schlingkraut, das sich häufig an tropischen Bäumen',10
  3531.         dc.b 'findet, wird wegen seiner starken, heilkräftigen Wirkung ge-',10
  3532.         dc.b 'schätzt. Die roten, lanzettförmigen Blüten sind der einzige',10
  3533.         dc.b 'Teil der Pflanze, der zu Heilzwecken verwendet wird. Die',10
  3534.         dc.b 'Blüten können sowohl frisch als auch getrocknet zu einem',10
  3535.         dc.b 'Aufguß mit Orazal und Alkohol versetzt, so kann er zwei Jahre',10
  3536.         dc.b 'lang aufbewahrt werden.',10
  3537.         dc.b 'Wirkung: Ein Tee aus drei Blüten (soviel hat eine einzelne',10
  3538.         dc.b 'Pflanze normalerweise) bringt 3W+2 LP.',10
  3539.         dc.b 'Preis: 1S / 15D',0
  3540. TSansaro        dc.b 'Sansaro ist eine übelriechende, grünbraune Tangart, die auf',10
  3541.         dc.b 'dem Meer oder an Küstestreifen praktisch "abgemäht" wer-',10
  3542.         dc.b 'den kann. Wenn man den Tang einkocht (vorzugsweise mit etwas',10
  3543.         dc.b 'Tran und Kalk), entstehen zwei wirksame Mittel: ein Absud, der',10
  3544.         dc.b 'gegen Krankheiten wirkt, und eine Paste, die Ungeziefer von Mensch',10
  3545.         dc.b 'und Tier fernhält. Die Paste hält sich etwa zwei Monate lang, der',10
  3546.         dc.b 'Absud gut ein Jahr, wenn er richtig aufbewahrt wird. Roher Sansaro',10
  3547.         dc.b 'ist völlig geschmackslos, hilft aber gegen die Kerkersieche.',10
  3548.         dc.b 'Wirkung: Der Absud unterbindet einen Tag lang jegliche Ansteckung,',10
  3549.         dc.b 'die Paste hält zwei Tage lang Parasiten und Ungeziefer fern.',10
  3550.         dc.b 'Preis: 1S pro Stein / 5D pro 10 Unzen Paste oder pro Flux Absud',0
  3551. TSchleichender  dc.b 'Über diese Orchideenart ist nur wenig bekannt. Sie wächst im Süden',10
  3552.         dc.b 'Aventuriens, trägt blaßgelbe bis weiße Blüten, riecht wider-',10
  3553.         dc.b 'lich süßlich, und ihre Blütenpollen erzeugen rauschhafte Träume',10
  3554.         dc.b 'und schwere Vergiftungen. Diese Pollen sind auch als Samthauch',10
  3555.         dc.b 'verbreitet und werden vor allem von den Boroni des Al´Anfan-',10
  3556.         dc.b 'ischen Ritus gerne verwendet.',10
  3557.         dc.b 'Preis: 2D / 20D (jeweils pro 5 Skrupel)',0
  3558. TSchleimiger    dc.b 'Dieser etwa faustgroße Pilz, der eine grünliche Haut und gleich-',10
  3559.         dc.b 'farbige Lamellen besitzt, wird von allen Tieren wegen seiner',10
  3560.         dc.b 'brennenden Berührung gemieden. Wie fast alle Pilze liebt dieser',10
  3561.         dc.b 'Holzschmarotzer schattige Plätze. Oft findet man ihn in soge-',10
  3562.         dc.b 'nannten Hexenkreisen um einen absterbenden Baum gruppiert. Aus',10
  3563.         dc.b 'dem Pilz läßt sich ein schweres Gift herstellen.',10
  3564.         dc.b 'Preis: 6D (3 Pilze) / 50D (fertiges Gift)',0
  3565. TSchlinggras    dc.b 'Diese Graspflanze findet sich in vielen nordaventurischen Mooren',10
  3566.         dc.b 'und Sümpfen. Sie lebt von verfaulendem Holz, das es dort zur',10
  3567.         dc.b 'Genüge gibt. Schlinggras kann Mensch und Tier durch seine un-',10
  3568.         dc.b 'angenehme Eigenart gefährlich werden, sich um die Beine eines',10
  3569.         dc.b 'Opfers zu ringeln - und ein Sturz kann im Sumpf fatale Folgen',10
  3570.         dc.b 'haben.',0
  3571. TShurinknolle   dc.b 'Die Shurinknolle ist die etwa kirschgroße, grüne Frucht des',10
  3572.         dc.b 'gleichnamigen Strauches, der vor allem auf kargen Böden gut',10
  3573.         dc.b 'gedeiht. Sowohl die Früchte als auch der Stamm und Blätter',10
  3574.         dc.b 'der Pflanze sind hochgiftig und werden zu entsprechend Mix-',10
  3575.         dc.b 'truen weiterverarbeitet.',10
  3576.         dc.b 'Preis: 8D (3 Knollen) / 70D (fertiges Gift)',0
  3577. TSuesser        dc.b 'Die glänzende blaue Frucht des Merach-Strauches ähnelt einem',10
  3578.         dc.b 'kleinen Apfel. Sie ist außergewöhnlich aromatisch und zucker-',10
  3579.         dc.b 'süß. Ihr Genuß ist unschädlich, solange man folgende Regel be-',10
  3580.         dc.b 'achtet: in einem Zeitraum von 3 Tagen vor bis 3 Tagen nach',10      
  3581.         dc.b 'dem Verzehr der Frucht darf man keinen Alkohol zu sich nehmen.',10
  3582.         dc.b 'Vorsichtist auch angebracht, wenn die Frucht etwas älter ist',10
  3583.         dc.b 'und vielleicht durch Eigengärung Alkohol entwickelt hat!',10
  3584.         dc.b 'Wirkung: Tödlich in Verbindung mit Alkohol (5W20 SP).',10
  3585.         dc.b 'Preis: - / 2H pro Frucht',0
  3586. TTalaschin      dc.b 'Die gelbgrüne Talaschin-Flechte, die man auf allerei Steinen',10
  3587.         dc.b 'findet, gilt als eins der widerstandsfähigsten Gewächse',10
  3588.         dc.b 'ganz Aventurien. Selbst in den Eiszinnen und in der Gor-',10
  3589.         dc.b 'ischen Wüste wurde sie schon gefunden, ja es scheint so-',10
  3590.         dc.b 'gar, daß sie diese extremen Bedingungen bevorzugt. Die',10
  3591.         dc.b 'Flechte wird in einem Mörser zerstampft und zu einer zähen',10
  3592.         dc.b 'Salbe verarbeitet, die bis zu einem Jahr haltbar ist.',10
  3593.         dc.b 'Wirkung: Die Salbe löscht jegliche Körpergrüche. Selbst',10
  3594.         dc.b 'gute Spürhunde können keine Witterung mehr aufnehmen. Der',10
  3595.         dc.b 'Salbenauftrag muß all zwei Stunden erneuert werden.',10
  3596.         dc.b 'Preis: 12H / 7D',0
  3597. TTarnele        dc.b 'Die Tarnele ähnelt dem Löwenzahn, blüht aber während der',10
  3598.         dc.b 'Monate Ingerimm bis Travia leuchtend rot. Sie gedeiht fast',10
  3599.         dc.b 'überall, im Schatten jedoch besser als in der vollen Sonne.',10
  3600.         dc.b 'Aus den zerriebenen Blättern und Stengeln (die von einer',10
  3601.         dc.b 'frisch geernteten, blühenden Pflanze stammen müssen) kann',10
  3602.         dc.b 'eine heilkräftige Salbe bereitet werden, die je nach Können',10
  3603.         dc.b 'des Herstellers bis zu 18 Monate haltbar ist. (Der Hersteller',10
  3604.         dc.b 'legt eine Alchimie-Probe ab. Die überschüssigen Talentpunkte',10
  3605.         dc.b 'geben an, wie lange sich die Salbe ohne Wirkungsverlust hält.)',10
  3606.         dc.b 'Wirkung: Auf Wunden aufgetragen wirkt die Salbe schmerzlin-',10
  3607.         dc.b 'dernd und heilkräftig, zur nächtlichen Regeneration oder zu',10
  3608.         dc.b 'dem Ergebnis einer Heilkund-Probe kann ein zusätzlicher LP',10
  3609.         dc.b 'addiert werden.',10
  3610.         dc.b 'Preis: 4H / 5S',0
  3611. TTee            dc.b 'Tee ist - neben Bier - eines der meistkonsumierten Getränke',10
  3612.         dc.b 'Aventuriens. Die Teepflanzen werden in großen Plantagen an-',10
  3613.         dc.b 'gebaut und die Blätter ein oder zweimal im Jahr geerntet.',10
  3614.         dc.b 'Bekannte Anbaugebiete für Tee sind die Vorgebirge des Rasch-',10
  3615.         dc.b 'tulswalls, die mhanadischen und thalusischen Hügelrücken',10
  3616.         dc.b 'und die Maraskankette. Der stärkste Tee ist der Boran Hochland,',10
  3617.         dc.b 'während andere Sorten wie Rose von Fasar oder Tulamidengold',10
  3618.         dc.b 'eher leicht aromatisch bis fruchtig schmecken. Die teuerste',10
  3619.         dc.b 'Teesorte ist der Ongalo-Hochland-1. Ernte-Blattenspitzen-',10
  3620.         dc.b 'Auswahl, der sogar im Kaiserpalast zu Gareth getrunken wird',10
  3621.         dc.b '(obwohl man dort noch exotischere Getränke wie Kakao bevor-',10
  3622.         dc.b 'zugt). Im Norden Aventuriens bekommt man häufig auch soge-',10
  3623.         dc.b 'nannten Tee angeboten, doch handelt es sich dabei meist um',10
  3624.         dc.b 'verschiedene Kräuteraufgüsse.',10
  3625.         dc.b 'Preis: - / 10H bis 5D pro Stein',0
  3626. TThonnys        dc.b 'Dieses unscheinbare, der Ackerwinde sehr ähnliche Kraut,',10
  3627.         dc.b 'dessen einzig hervorstehendes Merkmal die grellroten Blüten',10
  3628.         dc.b 'während zweier kurzer Wochen im Rahja sind, wird von den',10
  3629.         dc.b 'Elfen hoch geschätzt. Es ermöglicht ihnen die Astrale Medi-',10
  3630.         dc.b 'tation, die Umwandlung von Lebens- in Astralpunkte im Ver-',10
  3631.         dc.b 'hältnis 1:1. Das getrocknete Kraut vermag dies zwar auch, ver-',10
  3632.         dc.b 'ursacht jedoch eine leichte Übelkeit (1W6 SP). Das getrocknete',10
  3633.         dc.b 'Kraut hält sich etwa ein Jahr lang.',10
  3634.         dc.b 'Wirkung: ermöglicht Elfen, Hexen und Druiden die Astrale Medi-',10
  3635.         dc.b 'tation ohne LP-Verlust.',10
  3636.         dc.b 'Preis: 12S / 35D',0
  3637. TTraschbart     dc.b 'Diese Flechte hängt in langen verfilzten "Bärten" von den',10
  3638.         dc.b 'Bäumen, was ihr auch den Namen eingeragen hat. Wälder, in denen',10
  3639.         dc.b 'der graugrüne Traschbart häufig ist, gelten oft als verzaubert',10
  3640.         dc.b 'und unheimlich. Die Pflanze wird getrocknet und zu einem Pulver',10
  3641.         dc.b 'verrieben, das bei trockener Lagerung praktisch ewig haltbar',10
  3642.         dc.b 'ist. Da es auch keine bestimmte Erntezeit für das Gewächs gibt,',10
  3643.         dc.b 'ist Traschbartpulver das bekannteste Mittel gegen Fieberkrank-',10
  3644.         dc.b 'heiten.',10
  3645.         dc.b 'Wirkung: In Wasser aufgelößtes Traschbartpulver gibt bei Trief-',10
  3646.         dc.b 'nase, Dumpfschädel, Wundfieber, Brabaker Schweiß und Schlacht-',10
  3647.         dc.b 'feldfieber 2W6 LP zurück und stoppt den Verlauf der Krankheit.',10
  3648.         dc.b 'Preis: 1H / 4S',0
  3649. TUlmenwuerger   dc.b 'Diese efeuähnliche Pflanze hat ihren Namen von ihrer Vorliebe,',10
  3650.         dc.b 'in großen Mengen an alten Ulmen zu schmarotzen. Die blaßblauen',10
  3651.         dc.b 'Blüten - Blütezeit des Ulmenwürgers sind Efferd und Travia -',10
  3652.         dc.b 'können zu einem Aufguß verarbeitet werden, der das nächtliche',10
  3653.         dc.b 'Wohlbefinden stärkt und ansteckungshemmend wirkt. Die ge-',10
  3654.         dc.b 'trockneten Blüten, die einen leicht süßlichen Geruch ver-',10
  3655.         dc.b 'strömen, können nahezu unbegrenzt aufbewahrt werden.',10
  3656.         dc.b 'Wirkung: Verbessert die nächtliche Regeneration um 2LP, senkt',10
  3657.         dc.b 'außerdem die Ansteckungsgefahr für Wundfieber einen Tag lang',10
  3658.         dc.b 'um 20%.',10
  3659.         dc.b 'Preis: 6S / 9D',0
  3660. TVierblatt      dc.b 'Das Vierblatt - oder die Vierblättrige Einbeere, wie sie auch',10
  3661.         dc.b 'genannt wird - ist eine Strauchpflanze, die man bisweilen an',10
  3662.         dc.b 'Waldrändern finden kann. Im Gegensatz zur giftigen und sehr',10
  3663.         dc.b 'ähnlichen Glanzbeere bringt der Saft dieser blauen, etwa hasel-',10
  3664.         dc.b 'nußgroßen Beere Lebenskräfte zurückt, anstatt sie zu rauben.',10
  3665.         dc.b 'Der eingekochte Saft aus etwa 20 Beeren enthält etwa 50 LP',10
  3666.         dc.b 'und läßt sich bis zu einem Jahr lang lagern. Sowohl eine',10
  3667.         dc.b 'äußerliche als auch eine innerliche Anwendung des Saftes sind',10
  3668.         dc.b 'möglich.',10
  3669.         dc.b 'Wirkung: stoppt Blutungen, frische Beere bringt 1W6 LP zurück,',10
  3670.         dc.b 'Saft aus 20 Beeren enthält 50 LP.',10
  3671.         dc.b 'Preis: 3H pro Beere / 7S pro Beere, 25D für einen 50 LP-Trunk',0
  3672. TVragieswurzel  dc.b 'Diese Pflanze ist eigentlich im Süden Aventuriens heimisch,',10
  3673.         dc.b 'kann aber in allen Klimazonen gezogen werden. Ihr oberir-',10
  3674.         dc.b 'discher Teil ähnelt Möhrenlaub, während die Wurzel weißgelb-',10
  3675.         dc.b 'lich und gewunden ist. Aus ihr läßt sich ein milchiger, nach',10
  3676.         dc.b 'Lakritz riechender Saft gewinnen, der zu Boron-Wein, einem',10 
  3677.         dc.b 'starken Rauschmittel weiterverarbeitet wird. Da bei der',10
  3678.         dc.b 'Verarbeitung (Kochen und Eindicken)nicht alle Giftstoffe',10
  3679.         dc.b 'der Pflanze zerfallen, kann es beim Genuß von Boron-Wein',10
  3680.         dc.b 'durchauszu Todesfällen kommen.',10
  3681.         dc.b 'Preis: 2S für eine Vragieswurzel / 5D pro Unze Boron-Wein',0
  3682. TWasserrausch   dc.b 'Der Wasserrausch ist eine in Nordaventurien beheimatete, aber',10
  3683.         dc.b 'recht seltene Wasserpflanze. Die fünfblättrigen, blaßrosa',10
  3684.         dc.b 'Blütenkelche öffnen sich nur für einen Tag, aber die Pflanze',10
  3685.         dc.b 'bringt von Rahja bis Efferd ständig neue Blüten hervor. Den',10
  3686.         dc.b 'Blüten entströmt ein Duft, der einen schlafähnlichen Rausch',10
  3687.         dc.b 'mit lüsternen Träumen erzeugt, dem am nächsten Tag ein schlim-',10
  3688.         dc.b 'mer Kater folgt. Bei frischen Blüten ist die Wirkung am stär-',10
  3689.         dc.b 'ksten, abgepflückte oder halb verblühte zeigen nur geringe',10
  3690.         dc.b 'Wirkung. Auch erfahrene Schwimmer meide Gebiete mit Wasser-',10
  3691.         dc.b 'rausch! (KK +5, sonst verliert der Schwimmer die Besinnung)',10
  3692.         dc.b 'Sehr selten bringt die Pflanze eine dunkelgrüne, etwa krischen-',10
  3693.         dc.b 'große Frucht hervor (eine Frucht auf ca. 500 Blüten). Diese',10
  3694.         dc.b 'erzeugt, wenn man sie schluckt, einen leichten, euphorischen',10
  3695.         dc.b 'Rausch (ohne Kater), und ist zugleicht ein hochtwirksames',10
  3696.         dc.b 'Rahjaikum. Die Frucht ist ein Jahr lang haltbar.',10
  3697.         dc.b 'Preis: 1D / 20D pro Frucht',0
  3698. TWinselgras     dc.b 'Wenn der Wind über die Halme dieses Grases streicht -',10
  3699.         dc.b 'eine schwache Brise genügt - entstehen unheimliche Geräu-',10
  3700.         dc.b 'sche, meist ein elendes Winseln, das sich aber zu einem',10
  3701.         dc.b 'durchdringenden Kreischen, manchmal auch zu einem dumpfen',10
  3702.         dc.b 'Brüllen steigen kann. Art und Lautstärke der Töne sind nicht',10
  3703.         dc.b 'von der Windstärke abhängig. Das Gras winselt nur während',10
  3704.         dc.b 'der Nacht und tiefen Dämmerung.',0
  3705. TWirselkraut    dc.b 'Diese ausgesprochen unscheinbare Graspflanze mit ihren',10
  3706.         dc.b 'fingerbreiten, grünweißen Blättern ist in ganz Aven-',10
  3707.         dc.b 'turien der Begriff für Heilkräuter geworden. Die Pflanze',10
  3708.         dc.b 'findet sich in fast allen Grasländern, am häufigsten je-',10
  3709.         dc.b 'doch auf trockenen, etwas sandigen Böden. Das Kraut muß',10
  3710.         dc.b 'unbehandelt auf eine offene Wunde gelegt werden, um',10
  3711.         dc.b 'seine volle Wirkung zu entfalten. Wirselkraut iat auch',10
  3712.         dc.b 'Grundlage vieler käuflicher Heilsalben und Tränke.',10
  3713.         dc.b 'Wirkung: stoppt Blutungen, gibt 10 LP zurück',10
  3714.         dc.b 'Preis: 1D / 7D',0
  3715. TWuergedattel   dc.b 'Diese fleischfressenden Rankpflanzen sind bei den Be-',10
  3716.         dc.b 'suchern der Waldinseln gefürchtet. Ihr Stamm gleicht',10
  3717.         dc.b 'dem eines Baumes, von dem mehrere Äste abgehen, an denen',10
  3718.         dc.b 'Trauben leuchtend roter, dattelähnlicher Früchte hängen.',10
  3719.         dc.b 'Was man nicht sieht, sind die Würgeschlingen, die ent-',10
  3720.         dc.b 'weder unter Laub oder im Geäst benachbarter Bäume vor-',10
  3721.         dc.b 'borgen sind. Wer eine der "Dattel" berührt, wird von der',10
  3722.         dc.b 'Pflanze angegriffen (AT 10) und muß mit einer GE+4 aus-',10
  3723.         dc.b 'weichen. Wem dies nicht gelingt, der befindet sich im',10
  3724.         dc.b 'Würgegriff der Pflanze und erleidet pro KR 1W+2 SP. Man',10
  3725.         dc.b 'kann die Würgedattel nur bekämpfen, indem man ihre Ranken',10
  3726.         dc.b 'abschlägt (LE 10, RS 2). Endgültig vernichtet werden kann',10
  3727.         dc.b 'der Strauch nur mit Feuer oder Gift.',0
  3728. TXordai         dc.b 'Dies ist der Name für die Rinde des mächtigen Axorda-',10
  3729.         dc.b 'Baumes, der etwa 40 Schritt hoch wird und nur auf Maraskan',10
  3730.         dc.b 'wächst. Von seiner borkigen Rinde kann die innerste',10
  3731.         dc.b 'Schicht abgekratzt und zusammen mit Tarnele zu einem',10
  3732.         dc.b 'Sud verarbeitet werden, der als einziges Mittel gegen',10
  3733.         dc.b 'Zorgan-Pocken wirkt. Aus der Rinde (200 Stein Gewicht)',10
  3734.         dc.b 'eines Baumes lassen sich etwa fünfizg Aufgüsse gewinnen,',10
  3735.         dc.b 'die in dunklen Kellern etwa ein halbes Jahr haltbar sind.',10
  3736.         dc.b 'Wirkung: Verkürzt die Wirkungsdauer von Zorgan-Pocken auf',10
  3737.         dc.b '1W+5 Tage, wobei der Erkrankte täglich nur noch 1W+4 SP',10
  3738.         dc.b 'erleidet',10
  3739.         dc.b 'Preis: 40D für die Rinde eines ganzen Baumes / 100D pro',10
  3740.         dc.b 'Anwendung',0
  3741. TYagan          dc.b 'Die Nuß des Maraskanischen Yagan-Strauches wird etwa',10
  3742.         dc.b 'faustgroß und sollte im frühen Boron geerntet werden. Sie',10
  3743.         dc.b 'ist schwer zu knacken, enthält dafür aber ein wirksames',10
  3744.         dc.b 'Öl, das sowohl die Ausdauer heraufsetzt als auch gegen',10
  3745.         dc.b 'einige Krankheiten Heilkräfte besitzt. Das Öl wird, wenn',10
  3746.         dc.b 'man es richtig lagert, frühestens nach einem Jahr ranzig',10
  3747.         dc.b 'und ungenießbar.',10
  3748.         dc.b 'Wirkung: Steigert die Ausdauer eines Menschen, Elfen oder',10
  3749.         dc.b 'Zwerges für einen Tag um 2W6 Punkte, das Öl dreier Nüsse',10
  3750.         dc.b 'kann auch dem Pferdefutter beigemischt werden und be-',10
  3751.         dc.b 'wirkt, daß die Tiere eine SR länger galoppieren können, am',10
  3752.         dc.b 'Tag danach ist die AU jedoch halbiert. Steigert außerdem',10
  3753.         dc.b 'die Chance, aus der Schlafkrankheit aufzuwachen.',10
  3754.         dc.b 'Preis: 1S pro Nuß / 12D pro Nuß oder pro 2 Flux Öl',0
  3755. TZunderschwamm  dc.b 'Der Zunderschwamm ist ein großer, an Bäumen schma-',10
  3756.         dc.b 'rotzender Scheibenpilz von gelblicher bis grünlicher',10
  3757.         dc.b 'Farbe, der in fast ganz Aventurien vorkommt. Er er-',10
  3758.         dc.b 'reicht ein Gewicht von bis zu fünf Stein. Wenn er ge-',10
  3759.         dc.b 'trocknet wird, verliert er mehr als zwei Drittel seines',10
  3760.         dc.b 'Gewichts und entzündet sich beim kleinsten Funken.',10
  3761.         dc.b 'Preis: 5H pro Stein / 2S (Zunderkistchen mit 4 Unzen',10
  3762.         dc.b 'Inhalt)',0
  3763. TZwoelfblatt    dc.b 'Zwölfblatt ist ein farnähnliches, buschiges, dunkel-',10
  3764.         dc.b 'grünes Kraut, dessen Name daher rührt, daß sich stets',10
  3765.         dc.b 'zwölf einzelne Stengel von der Hauptwurzel aus er-',10
  3766.         dc.b 'heben. Die Pflanze liebt schattige und feuchte Orte,',10
  3767.         dc.b 'kann aber auch unter widrigeren Bedingungen existiern.',10
  3768.         dc.b 'Wenn das Kraut frisch gegessen wird, verhindert es',10
  3769.         dc.b 'vier Tage lang Ansteckungen aller Art. Es kann jedoch',10
  3770.         dc.b 'getrocknet und als Tee aufgebrüht werden und gewährt',10
  3771.         dc.b 'dann zwei Tage Schutz. Der Tee ist etwa 9 Monate lang',10
  3772.         dc.b 'genießbar.',10
  3773.         dc.b 'Wirkung: verhindert vier Tage lang Infektionen.',10
  3774.         dc.b 'Preis: 9S / 5D',0
  3775. ;;
  3776.